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MODULE RSTTYPES (IDENT = 'V04-000") = 
BEGIN 


(eeerereererereteeeneeeeeeeeeereretereereeererererereeeeeeeeeReeeteneeneneer 


ie ‘ 
ie COPYRIGHT («) 1978, 1980, 1982, 1984 BY : 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
is ALL RIGHTS RESERVED. . 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 8 
ie ONLY IN ACCORD ANCE we R F rsyee LICENSE AND WITH THE ® 
ie INCLUSION OF THE ABOV COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF may Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. , 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT © 
is CORPORATION. * 
° ® 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ix SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. e 
i 
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i WRITTEN BY 

: Bert Beander August, 1980 
Ken Nappa August, 1980 


{ MODULE FUNCTION 
This module contains symbol table access routines for types. These 
rout ines gecept a Type ID and return information about the sesconnead 
ng data type. 


i sry ¥ S May 1982 ¢ t th t et BITSIZE val 
‘ ng Sager ay orrec e@ way to value 
™“ in DBGSSTA TYP. VARIANT. 
Pin Seger Oct 19 Added DBGSTYPETD. FoR $61 routine 
Rich T Nov 19 Added uoeet veeID. FOR-TPTR rout 
an Seger _ 19 Handle Snore s for DST 4% SEPTYP 
! n 19 Added. DBG TYPED. FOR ARRAY routine 
' 006 fee Carrell aot 19 Added support for continuation DST records 


REQUIRE *SRC$:DBGPROLOG.REQ’; 
FORWARD ROUTINE 


DBGSF IND_SEPTYP, ' Get Separate Type Specification 

; from a given DST recor 
08G Vapi TSize AER ROM_DESC ' Get the size from the — ptor 

GS$GET~B1TSIZE-FROM-TYPESPEC, i Get the size trom Type 

DBGSSTA_SYMTYPE? ROVALUE, ' Return a symbols 1D Pend FCODE 
DBGSSTA_SYMSIZE: NOVALUE, ' Return the bit size of a data type 
DBGSSTA_TYPEF CODE, ' Return the type format code 
DBGSSTA_TYP_AREA: NOVALUE, ! Return the info for an area type 


<n 


acm 


n 8 
RSTTYPES 16-Sep-1984 02:58: AX-11 Bliss-32 v4.0-742 Page 2 
WO -008 13-808= 1382 95:78:99 Prous. enctastybes Boos) . . (1). 
; 38 1 1 DBGSSTA_TYP_ARRAY: VALUE, ! Return info for an array type 
; 1 1 DBGSSTA_TYP_ATOMIC: NOVALUE, ! Return type code for an atomic type 
3; & 1 1 DBGSSTA_TYP_DESCR: NOVALUE, ! Return gece ptor for descriptor type 
oe 194 1 DBGSSTA_TYP_ENUM: VALUE, ' Return info for an enumeration type 
; 6 195 1 DBGSSTA_TYP FILE: NOVALUE? ' Return info for a tile type 
3 8 1 1 DBGSSTA_TYP OFFSET: NOVALUE, ' Return info for a offset type 
; 666 1 1 DBGSSTA_TYP-PICT: NOVALUE, ' Return info for a picture type 
3 «66 138 1 DBGSSTA_TYP_TYPEDPTR: NOVALUE, ! Return info for a typed pointer type 
; 68 1 : +42 UN La Tad Meer § peturn inte sor a record type 
; $8 of 1 DBCSSTATTYP~SUBRNG: NOVALU ; | Keeura inte ter 6 subrange type | 
. § 8§ | BBESSTATIVPCVARTANT COMPS HOVALUE, i PERU” Info for ® variant type | 
: 71 04 1 GSTRANS TYPE_CODE, * i Translates DST fcodes to RST fcodes | 
3 i 0205 1 DBGSTYPEID_FOR_ARRAY ' Return Type ID for array 
: 7 8 Be 1 GSTYPEID-FOR-ATOMIC, ' Return Type ID for atomic type 
:; «76 07 1 DBGSTYPEID_FOR_SET ! Return Type ID for set type 
: «75 9 08 1 GSTYPEID-FOR-TPTR, i Return Type ID for TPTR type 
ie). 1 TYPEID_FOR_COB_HACK, ' Return Type ID for COBOL Hack record 
ef 0210 1 TYPEID_FOR-DESCR ! Return Type ID for descriptor type 
; 7. TYPE ID-FROM_DST_fYPESPEC, ! Return Type ID from a Type Speci- 
: 6 0 \§ } TYPEIO FROM DST RECORD ! fication embedded +4 the DST | 
; 1 0214 1 ESC_OR ARRAY OR ATOM, ! Determines the nature of the type. 
; Hy 8 1g 1 FIND TYPE RECORD, ' Returns symid of type info | 
: «684 021 1 F IND_ TYPESPEC ! Get Type toe from Sep Type 
; 685 0 18 1 FIND-TYPREC_FROM_TSPEC, 
Z 86 021 1 GET_BITSIZE-FROM_DTYPE ' Get the size from pr yee 
; «87 0220 1 GET“BITSIZE-FROM-BLIDST; i Get the size from BL] DST 
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ot ay bitsize from VMS descriptor 
@ permanent memory block 
ims temporary’ memory block 


Return the real DST Siyens 

Return the n tied DST g DST 

Get peers ed A : " nd 

pote n symbol name 

Evaluate a specified symbol's value 


EXTERNAL ROU ROUTINE 
GSDATA_LENGTH, 
0BGS$G ! A AD 

DBGS$GET 

DBGSR 1 acces: NOVALUE, 
DBG$R 

DBGEnSI “Ne Sele xr ost, 

DBCSSTAT SYANANE: NOVALUE 
DBGSSTA-SYMVALUE: NOVALUE, 


Oe eee 


DBGSSTA_VALSPEC: NOVALUE; Evaluate a DST Value Spec 
esi 
TSBEGIN_ADOR, ! The start address of the DST in memory 
SSTART_ ADDR: REF RSTSENTRY, ! Pointer to RST anonymous module 
STemP_Cis ! Pointer to Temporary RST Entry List 
NOVEL __LENGTH_FLAG; This flag is used to indicate 


we have encounted a novel Length 
dst, we need to take the size 
spec trices in this dst to override 

e original length. Especially, 
ee ata has novel Length dst, 
and this data item has a yoere. 

sexed has its own size) 

case we need to modi ty” the | 

typetd to reflect the nove | 
Length by making a copy of 
the type d with new navel Length 
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GLOBAL ROUTINE DBGSFIND_SEPTYP(DST_PTR, TYPE_PTR, TYPE_SPEC) = 


i area Separate Type Specification DST Record, Figure out its Type 
Specification and the size of the described object is returned. 
INPUTS 
DST_PTR - Pointer to DST Record. 
TYPE_PTR = Pointer to DST Type Spec fields. 
TYPE _SPEC - Pointer to DST Type Spec. 


OUTPUTS 
Size of the object in Type Spec is returned. 


TYPE“SPEC: REF VECTORL,LONG]; Pointer to ype Spec 


LOCAL 
ENUMBEG: REF RECORD 
ECBEG: mere E 


D Pointer to Enum. begin record 
R S CBEG fri, 
NAMFPTR yet ORC BYTE), 


Pointer to Rec. begin trailer record 

Pointer to name of the recor 

TYPEPTR: REF DSTSRECORD Pointer to DST Type Spec fields 

TYPESPEC: REF DSTSTYPE_SPEC, Pointer to DST Type Spec 

SIZE; ' Size of the Object 


SIZE = 0; 
! TYPEPTR = DST_PTRCDSTSA_NEXT) + .DST_PTRCDSTSB_LENGTH); ' 0006 
TYPEPTR = DBGSRST_NEXT_DST( .DST_PTR J; i A006 


YPESPEC = 
TYPEPTRCDSTSA_TYPSPEC_TS_ADDR] + .TYPEPTRCDSTSB_TYPSPEC_NAMEJ; 
WHILE TRUE DO 
SECEC TONE . TYPEPTRIDSTSB_TYPE) OF 
EDSTSk_SEPTYP2: 
FYPEPTR = DBGSRST_NEXT_DST( .TYPEPTR 


PRAVLSSSLEAR ALS GSS APU OOSBNOUE UI OD G9 WO PU ODO GUO 


): ' M006 
TYPESPEC = , TYPEPTR DST$B_TYPSPEC NAME} + 
TYPEPTRLDSTSA_TYPSPEC_1S_ADDR); 
CDSTSK GLOBNXT2 : 
! TYPEPTR = .TYPEPTR ¢ 2; ' A006 
: i A006 


TYPEPTR = DBGSRST NEXT.DST( .TYPEPTR 
TYPESPEC = 2 IYPEPTR 


‘ ) 
DST$B_TYPSPEC NAME} ‘ 
YPEPTR ; 


§ 
A_TYPSPEC_TS_ADDR 
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1 
1 
1 
1 
1 
1 
BEGIN 
DST_PTR: REF ha 3 ag ! Pointer to DST Type Spec Record | 
TYPE_PTR: REF VECTORL, LONG) i Pointer to pst Type Spec fields | 
rs 
4 
4 
4 
4 
4 
4 
4 
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PSPEC]: 


1 435 = FIND _TYPESPEC(.TYPESPEC, SIZE, TYPEPTR); 


uw 


= ,TYPEPTR: 
. TYPEPTRCDST$B8_ENUMBEG_LENG); 


—t sb db bs > be 
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COSTSK_RECBEG): 
BEGIN 


' Advance the pointer to the name field. 
(1 byte length, 1 byte type, 1 byte vflags, 4 bytes value). 


RECBEG = .TYPEPTR + 14141 +4 4; 
NAMEPTR = .RECBEG; 


Advance the pointer to the trailer field. 


RECBEG = .RECBEG + .NAMEPTR(O) + 1; 
SIZE E spheres DSTSL_RECBEG_SIZE]; 


te bo eb ts nt te st  _t — 
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END; ! End of WHILE Loop. 
IF .SIZE CO) ty 0 wee Size © DBGSGET_BITSIZE_FROM_TYPESPEC(.TYPESPEC); 
TYPE_PTR 
TYPE "SPEC | 
RETU N .SI 


zE; 
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-TITLE RSTTYP 
- IDENT Nv04~000\ 


-PSECT DBGSOWN,NOEXE, PIC,2 
00000 NOVEL_LENGTH FLAG: 
-BLKB 4 


DBGSGET_TEMPMEM 


ish 


A3 
AO 


AF 


0000v 


0 
28 000000006 8 


68 


4 AE 
4 AC 
1 

0 

6E 

08 arto 
6 
oa 
54 


mou 
—S0O-WM 


02. A 
5 
03 A 
54 
11 
SE 
08 i 
: 
4 
94 
02 AS 
1 
54 
1 
07 +A 
5 
6 
01 A04 
6 
04 Op 


= 
no 99 0090 0-0" 09 — 0 9 19 09 0" 02 O09 N09 0“ ODOT OoTUTO "Oo OTNOon 


DONMOM S OM = SON “O89 MON $"M OF ODON "Wi GPOM SPOODWS SMO 


i521 
-seo- 
1 ~Sep-1 


COOooooeo 
Od ad od 
MDOP A OVO 


SooooooooSo 


> 
bad 
oe 


OOOOoOsCoooooocoooo 


PAPAIN £& & & 


OoOoOoOooooooooococooooo 


MO ON M ONE MOM FS OWMNO ON MDS 
eo we 
wn bod 


> 
wa 
PA 


oO 
Wer 


~™ 
as 


:58: AxX-11 Bliss-32 V4.0-742 P 
She 93:33:99 «Haag Bhi sac Fe oe 95 eS? a 

-EXTRN DBGSRST_NEXT_DST 
sEXTRN DBGSSTA_SYMKIND 
-EXTRN DBGSSTA-SYMNAME 
-EXTRN DBG SACS YAVALUE 
SEXTRN DBGSSTA VALSPEC 
sEXTRN DSTSBEGIN ADDR, RSTSSTART_ADDR 
sEXTRN RSTSTEMP_CIST 
«PSECT DBGSCODE,NOWRT, SHR, PIC,0 
.ENTRY DBGSFIND_SEPTYP, Save R2,R3,R4,R5,R6,R7.RB ;: 
ROvag DeGSRST_REXT_psf, RB ; 
SUBL2 #8, SP : 
CLRL. 0 SIZE : 
PUSHL DST_PTR : 
CALLS #1, ~DBGSRST_NEXT_DST ; 
MOVL RO, TYPEPTR : 
MOVL TYBEPTR R1 : 
MOVZBL 2(R1) Ro : 
MOV (R1)€ROJ, TYPESPEC ; 
MOVL TYPEPTR, R3 : 
MOVZBL 1(R3), R4 : 
CMPB RG, #163 : 
BEQL 2 : 
CMPBOaR4, #160 : 
BNEQ HY 3 
PUSHL R ; 
CALLS #1, DBGSRST_NEXT_DST : 

VL. —-RO,_~-TYPEPTR : 
MOVZBL 2(RO), R1 : 
ADDL2 Ri, R ; 
MOVAB 3(RO), TYPESPEC : 
CMPB RG, #175 : 
BNEQ  4$ : 
PUSHL SP ; 
PUSHAB : 
PUSHL TYPESPEC ; 
CALLS #3, FIND_TYPESPEC ; 
MOVL RO. TYPESPEC : 
BRB 3 
CMPB RG, #165 ; 
BNEQ ; 
HOVE R3,_ENUMBEG : 
MOVZBL 2(R3), SIZE ; 
BRB + g 
CMPB RG, #171 ; 
BNEQ : 
MOVAB 7(R3), RECBEG : 
MOVL RECBEG, NAMEPTR : 
MOVZBL (NAMEPTR) RO F 
MOVAB 1(RO)CRECBEG], RECBEG ; 
MOVL (RECBEG) Sizé : 
TSTL é ; 
BNEO : 
PUSHL TYPESPEC : 
CALLS #1, DBGSGET_BITSIZE_FROM_TYPESPEC : 


ns] igo$eo-19ge 03:54:00 yasety OLigscte ye 02742, rage of 
of 30 : Rove R06 size atyPEe PTR ; | 
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; Routine Size: 169 bytes, Routine Base: DBGSCODE + 0000 


; 221 0352 1 
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GLOBAL ROUTINE DBGSSTA_SYMTYPE(SYMID, FCODE, TYPEID): NOVALUE = 
FUNCT! 


<2 


ON 

This routine takes a SYMID and returns a TYPEID and FCODE for the 
type associated with the input SYMID. In the case where the SYMID 
defines a type item, the returned TYPEID is identical to the SYMID. 


INPUTS 
SYMID = The SYMID for the symbol or type whose TYPEID and Format Code 
are to be returned. 


FCODE = The address of a longword location to receive the FCODE 
associated with the given SYMID. 


TYPEID = The address ef @ longword location to receive the 
TYPEID describing the type associated with SYMID. 


OUTPUTS 
FCODE = The format code associated with SYMID is returned to FCODE. 


TYPEID = A TYPEID defining the type associated with the input 
SYMID is returned to TYPEID. 


PRP POPIPIPOPONPPUPINIPUIIFPUNINIPONIPIPINIY a8 at at tt ot tt te 


BEGIN 
SYMID: REF RSTSENTRY, ' Pointer to input 2 ae a RST entry 
FCODE: REF VECTORE 4 ! Address where FCODE is returned 
TYPEID: REF VECTOR(1’; ' address where TYPEID is returned 
LOCAL 
SIZE; ! Bit size of a data item of the type 
! Find the Type RST patry associated with the input syne, Return its 
! address to TYPEIDCO] and its Format Code to FCODELO]. Signal an internal 
: error if the TYPEID turns out to be zero--that should never happen. 
TYPEIDCO) = FIND TYPE_RECORD(.SYMID, FCODECO), SIZE); 
eg reretes eat 0 
$DBG_ERROR("RSTTYPES\SYMT\PE"); 
RETURN; 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
59 54 4D 59 53 SC 53 45 50 59 54 54 53 2 18 89000 P.AAA: .ASCII <16>\RSTTYPES\<92>\SYMTYPE\ 3 
45 5 F 


mst RES 1EoSeoct9Re 08:58:00 YAKeND OL igne82 ye 0- 742, rage 2 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0098 sENTRY DBGSSTA_SYMTYPE, Save nothing ; 0353 
SE 94 C UBL2 #4, SP : 
E 90 PUSHL + 039% 
7E 06 AC 70 MOVO.  SYMID, =(SP) : 
0090v CF F CALLS #3, FIND TYPE_RECORD : | 
¢ 8c p MOVL RO, aTYPEID : | 
BNEQ 1 3 8 95 | 
00000000 EF 9F PUSHAB P,AAA > 0397. 
1 DD PUSHL # 3 
00028362 8F 0D PUSHL #164706 : 
000000006 00 3 FB CALLS #3, LIBSSIGNAL ; | 
04 RET : 0401 | 


; Routine Size: 44 bytes, Routine Base: DBGSCODE + O0A9 
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1b-se0-1946 95:75:99 = EOKaue. Bacdastevees asset ve 
GLOBAL ROUTINE DBGSSTA_SYMSIZE(SYMID, SIZE): NOVALUE = 

i FUNCTION 


This routine takes a SYMID and returns the size in bits associated 
with that input SYMID. 


i INPUTS 
: SYMID = The SYMID for the symbol or type whose bitsize is to be 
returned. 


] 
‘ 
' 
' 
' 
' 
' 
' 
‘ 
: SIZE = The address of a longword location to receive the size in bits 
: of the item described by the given SYMID. 

! OUTPUTS 
SIZE - The size in bits of the input item is returned to SIZE. 
J 

' 


No value is returned. 


BEGIN 2 
SYMID: REF RSTSENTRY, ! Pointer to input symbol's RST entry F 
SIZE: REF VECTOR(1); ! Address where size is to be returned | : 

LOCAL . | : 
TYPEID: REF RSTSENTRY, ' The symbol's Type ID : 
F ; i The tee ot Type Format Code | : 

! Get to the Type DST record and pick up the size information. If no type : 

} info was found, set the bit size to zero (wich means size is unknown). : 

TYPEID = FIND TYPE ABECORD SYmID FCODE, SIZEC0)); F 

IF .TYPEID EOC 0 TRE z€t0) = 6 : 

ELSE IF (.SIZECO) i j ot : 

((. FCODE FOL RST gi VE_PtRD OR (.FCODE EQL RST$K_TYPE_TPTR)) : 
THEN SIZECO 3 
RE TURN; ; Py 
END; : 
-ENTRY DBGSSTA_SYMSIZE, Save nothing 3 0402 | : 
5E SUBL2 #4, SP ~ 3 3 
8 PUSH SIZE 0436 : 
4 PUSHAB F CODE 5 3 
4 PUSHL 3 : 
0000v CF CALLS 3" FIND, TYPE _RECORD 3 3 
TSTL «=: TYPEJ + 0437 
BNEQ 1$ 3 
08 CLRL asize : 
08 TSTL  aSIZE > 0438. 


mst Types be Seo-t9se 03:58: " mye!) OLigsc 32 yA 02042, Page I 


10 Eo cnPL itove. #6 | j 0439 
| | . =f a 


E 3$: RET 
3; Routine Size: 47 bytes, Routine Base: DBGSCODE + 0005 
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3; Routine Size: 22 bytes, Routine Base: DBGSCODE + 0104 
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yOu -008 1o-808- 1382 95:78:98 Pres. enctastTybEs Boos — (6) v 
: 1g $3 ! GLOBAL ROUTINE DBGSSTA_TYPEFCODE(SYMID) = : 
; 31 45 1 § FUNCTION ; 
3 + ‘$ 1! This Foyt tne returns the Format Code (FCODE) associated with a specified 3 
3 1 47 1! type (given by a SYMID or TYPEID). The Format Code is simply picked up : 
: ? 4 : : from the type’s RST entry. : 
; : 334 i INPUTS : 
3 11! SYMID = The SYMID for the symbol or type whose type Format Code $ 
: : § : H is to be returned. : 
; $ 4 1 ! outputs ; 
3 >» = The type's Format Code is returned as the routine value. The possible $ 
: § : } Format Codes are Listed in DBGLIB.REQ. : 
; é 1} : 
3 1 1 é 
: § rs BEGIN ; 
: 6g LOCAL : 
3 5 6 TYPEID, ! The symbol's Type ID 3 
: rf: FCODE; ! The symbol's type Format Code : 
: 33 $9 : 
3 ° re } Get the symbol’s type and Format Code. Then return the type Format Code. 3 
; ¢ 9 DBGSSTA_SYMTYPE(.SYMID, FCODE, TYPEID); F 
; 71 RETURN .FCODE; 3 
: 4 % : 
3 5 7 END; 3 
| : 
0000 000 ENTRY DBGSSTA_TYPEFCODE, Save nothing 0443 | : 
5E 8 C2 000 ¢ SUBL2 #8, SP ; 3 
E DD 00 PUSHL SP 3 0470 | 3 
8 AE OF 7 PUSHAB FCODE § 3 
4 at DD A PUSHL SYMID ; 3 
94 AF 0 fe CALLS a3 DBGSSTA_SYMTYPE é : 
50 04 AE p 11 MOVL CODE, RO > 0471 | : 
4 15 RET 3 0473 | 3 
| ; 
| ; 


STEERER | 
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GLOBAL ROUTINE DBGSSTA_ TYP_ARRAY(TYPEID, DSCADDR CELL TIPE 


NDIMS, Dimv BITSIZE): NOVALUE = 


~~~ 


w bet ee 9 Pe PP 


t 

' FUNCTION 
‘ This routine returns the t type wetorest ion a7 with an Array data 
type. ihe t type *. rateres s identified » A: » and the returned 
nformati ont —yh 4s F descriptor, the type. the number of 
dimensions the yi bits of the orrey and al tvs on about each 
specitic dimension (the subscript type, the lower bound, and the upper 


— 
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i INPUTS | 
‘ TYPEID = The Type ID of the Array data type about which information is 
desired. Its Format Code must RSTSK_TYPE_ARRAY. 


DSCADDR =- The address of a longword location to receive a pointer to the | 
array's descriptor. 


CELLTYPE = ome address of a longword location to receive the Type ID of 
the data type of the individual array elements. 


MEW 


NDIMS = The address of a longword location to receive the number of 
dimensions in the array. 


DIMVECPTR = The address of a longword location to receive a pointer to a 
vector of subscript information. 


BITSIZE = The address of a longword location to receive the size in bits 
of an array of this ype. 
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i OUTPUTS 
; DSCADDR - ine address of the array descriptor is returned to DSCADDR. 
This may be a contiguous or noncontiguous array descriptor. 
the Gener ipter may disappear at the end of the current Debug 
command. 


CELLTYPE = The Type ID of he individual array elements’ data type is 
returned to CELLTYPE. 


NDIMS = The number of array dimensions is returned to NDIMS. 
DIMVECPTR - A pointer to a subscript vector is returned to 
DIMVECPTR. This vector contains one longword 
per Cinens ign. givin i" subscript Type ID. 
he vector is allocated in temporary sforage--it disappears 
at the end of the current Debug command. 
BITSIZE - The size in bits is returned to BITSIZE. 


No value is returned. 
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' WARNING: 

: The five output perenetors ore be ree tees Locations in the 
4 callers addre pac e. or ink ° you t do: 
401 5G STA_TYP irhat ive 1D, JUNK, CELLTYPE. MO UNK. JUNK, JUNK) 
+08 fe ust find out “a celltype. T ¢ problem: is that the routine 
40 Ss using the addresses passed AL, (.JUNK in this case) as local 
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16-Sep-1984 02:58: AX-11 Bliss-32 
12-860=1 38 95:75:99 DEBUG. SRCIRSTT 
storage, eis it really should not be doing, and stores into 

ne .JUNK will trip up reads from another. So you must pass 

4 gistince paraneters 

DBGSSTA_TYP_ARRAY (.TYPEID, JUNK1, CELL TYPE, JUNK2, JUNK3, JUNK4) 

I got Fi ipove ye on this so 1 thought I'd warn others. 

R. Title Nov 1982. 


BEGIN 


TYPEID : REF RSTSENTRY; ! The input TYPEID for the array type 


PTR : REF DST 

ID_PTR : REF RSTSENTRY 
ESC_PTR : REF BLOCKC.BYTES, 
SUBSCR_VECT : REF yg ctor. 


VAL_VECT : VECTORE 
VAL=PTR : REF DSTSVAL_SPEC: 


TYPEID_PTR = FIND_TYPE_RECORD(.TYPEID, FCODE, SIZE); 


: TYPEID_PTR => RST Entry for this array type. Verify the format code. 

if .FCODE NEQ RSTSK_TYPE_ARRAY THEN SOBG_ERROR("RSTTYPES\TYP_ARRAY 10°); 
DST_PTR = .TYPEID_PTRCRSTSL_DSTPTRI; 

TYPE_SPEC = DST _PTRCDSTSA_TYPSPEC T§_apoR) + ,DST_PTRCDSTSB_TYPSPEC_NAME); 
TYPE-SPEC = FIND_TYPESPECT.TYPE_SPEC> SIZE, DST_PTR); 


! for orrey {ypete fees not carray the size information. However 
i FIND_TYPESPEC routine does go further into the DST to dig out 
: the size of the array for contiguous array. 


.BITSIZE = .SIZE; 


YPE_SPEC => Type Specification field for this array type. 
f ofd format array spec, get info from descriptor 


TYPE_SPECCDSTSB_TS_KIND) EQL DST$K_TS_DSC 


ome 


! Obtain a descriptor by evaluating the value specification. 


ig 
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461 

466 yal PTR = TYP SPECcOSTSA, TS_DSC_VSPEC_ADDR); 
46 DBGSSTA VALSPEC(. vat pie VAC_VECT, VACKIND): 
re Fg VALRIND NEG DBGSR_VAL _DEStR 


oo 


$DB8G Sac tee tbls PL ARRAY 20°); 


DESSREAD_A ACEESST. pest Pte, 12); | 
-DSCADDR™= .DESC_ 


470 
471 ' Obtain the fam a an element and the bitsize of an element. | 
47 i pote hes 8 a" LENGTH returns the bitsize of an element 
47 i because it sf Looks at the dtype field and the length field, 

tre not the cless jield 

47 DATA_ TYPE = 3434: PTRCOSC$B_DTYPE); 

4? BITS“USED = DBGSDATA_LENGTHT.DESC_PTR); 


! Build @ typeid for the array element. 


if -BITS_USED NEQ 0) AND 
(.DESC-PTRCDSC$B_SCALE) EQL 0) AND 


Se 
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-NDIMS = .DESC precescee DIMCT); 
UBSCR ToTEAPRER(. .NDIMS) ; 


iNCR I FROM O 10 tal = 100 
SUBSCR_VECTE.1) = 


END 


ret : 7 -DESC-PTRCDSC$B_DIGITS] EQL 0) 
ore : -CELLTYPE = DBGSTYPEID_FOR_ATOMIC( .DATA_TYPE, .BITS_USED, TRUE) 
rts } -CELLTYPE = TYPEID_FOR_DESCR(.DESC_PTR,RSTSK_TYPE_DESCR, TRUE); | 
490 ; ! Use the descriptor to fill in the remaining output parameters. 
1 


: New format type specification for this array. 
ELSE - 
ee ee SPECEDST9O_1S_k1ND) EQL DSTSK_TS_ARRAY 
BEGIN 
LOCAL 
FLAGS_PTR : REF BITVECTOR; 


.NDIMS = .TYPE_SPECCOST$B_TS_ARRAY_ DIM); 
FLAGS_PTR = TYPE_SPECCDSTSA_TS_ARRAY_FLAGS_ADDR); 


$5 
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: FLAGS_PTR => Bitvector of optional eer indicators. 


L_PTR = .FLAGS_PTR + (..NDIMS/8) 
te VALSPEC(7 VAL_PTR, VAL_VECT, inne): 


28 


_ _ oOo oO 
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wr 


10 
ner TyPES | 1$-ep-1984 02:58:00 yAR-11 Bligsc¥2 ve.02742 
if aco NEQ DBGSK_VAL_DESCR 


SDBG_ERROR('RSTTYPES\TYP_ARRAY 30°); 


ESC_PTR = .VAL_VECTCO); 
DSCADOR a 
H 


Dest rie: 
.VAL_PTREDSTSB_VS_VFLAGS] EQL DSTSK_VS_FOLLOWS 
TYPE_SPEC1 = .VAL_PTR + .VAL_PTRCDSTS$W_VS_LENGTH] + 3 
ELSE 

TYPE_SPEC1 = .VAL_PTR + 5; 


TYPE_SPEC1 => First optional Type Spec within this record. 
TYPE_SPEC1 will move along through the optional Type Specs. 


PESTS SOS CSCS CLES TS 
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F_.FLAGS_PTR(O) 
Beer HEN 
BEGIN 

0665 ! ppt tonal cell type is present. 

pees -CELLTYPE = FIND PREC_FROM_TSPEC(.TYPE_SPEC1); 
4 TYPE_SPEC1 = .TYPE_SPECT + 27+ .TYPE_SPECICDSTSW_TS_LENGTH); 
4 0668 END 
4 0669 
4 0670 ELSE 
¢ $073 ! i lL cell it f d i 

: Mo optional ce type; use ce type from descriptor. 

r Oer§ DBGSREAD_ACCESS<.DESC PIR, 2a: 
4 bere ' Obtain the Serpe of an element and the bitsize of an element. 
4 Be78 ! Note that DBGSDATA_LENGTH returns the bitsize of an element 
5 7 ' because it just looks at the dtype field and the length field, 
2 % } not the class field. 
5 680 DATA_TYPE = .DESC_PTRCDSCSB_DTYPE); 
3 9681 BITS“USED = DBGSOATA_LENGTHT.DESC_PTR); 
5 0688 IF (.BITS_USED NEQ 0) AND 
5 (.DESC_PTRCDSCS$B_SCALE] EQL 0) AND 
: (.DESC_PTRCDSCS$B_DIGITS] EQL 0) 


-CELLTYPE = DBGSTYPEID_FOR_ATOMIC(.DATA_TYPE, .BITS_USED, TRUE) 


LSE 
-CELLTYPE = TYPEID_FOR_DESCR(.DESC_PTR,RSTSK_TYPE_DESCR, TRUE); 
END; 


' Now build DIMVECPTR. Each element receives either a TYPEID or 
zero, depending on the appropriate bit in the flags vector. 
SUBSCR_VECT = DBGSGET_TEMPMEM(. .NDIMS); 

-DIMVECPTR = .SUBSC T; 

iN f hon 1°70 ..NOIMS 60 
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: 575 7 F_.FLAGS_PTRC.1) : 
: i$ , 5 th 7 EGIN : 
3 ne 705 6 ! 0 Sionet Peer igt, type e exists; type spec! points to it. $ 
; 706 6 SuBs CR_V ECTL ND_TYPREC_FROM-T PEC (= TYPE SPEC1); ; 
: 380 i 6 “SPEC -TYPE_SPEC] #72 + .TYPE_SPECICDSTSw_TS_LENGTH); ; 
: ¢ ? § ; 
: 584 ay ELSE escR VECTE. 1-1] = 0 
° oe «i = ° : 
; 585 71 3 
: 71 4 END; 3 
3 71 4 3 
: 715 END; 3 
: 589 216 : 
; 590 71 END; 3 
: 591 718 : 
: 3 719 RETURN; : 
: 59 720 ; 
; 94 0721 END; g 
.PSECT DBUSPLIT,NOWRT, SHR, PIC,0 : 
41 SF 50 59 54 SC 53 45 0 ? 54 54 53 5 15 90011 P.AAB: ASCII <21>\RSTTYPES\<92>\TYP_ARRAY 10\ : : 
41 SF 50 59 54 SC 53 45 0 9 s 4 33 5 i§ 009 P.AAC: ASCII <21>\RSTTYPES\<92>\TYP_ARRAY 20\ : : 
41 SF 50 59 546 SC 53 45 50 § e0 4 53 3 Hi $09 D P.AAD: .ASCII <21>\RSTTYPES\<92>\TYP_ARRAY 30\ : : 
0 33 20 59 41 52 52 0004c : : 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O | 3 
OFFC 00000 ENTRY DBGSSTA. TYP_ARRAY, Save R2,R3,R4,R5,R6,R7,> ; 0474. : 
$8 000000006 00 9 0000 MovAB DBGSREAD Access. R11 : | 3 
A Bae G : 9E 000 MOVAB DBGSSTA_VALSPEC, R10 3 3 
59 000000006 9E 9019 MOVAB LIBSSIGRAL, Ro ; : 
58 00000000' FF i: 1 MOV P.AAB, R ; : 
5E C 3 SUBL2 #28, SP : : 
8 AE OF PUSHAB SIZE > 0562 : 
4 AE OF 4 PUSHAB FCODE ; : 
4 AC DD 7 PUSHL TYPEID : 
0000v cf : F A CALLS #3, FIND _TYPE_RECORD F 
2 D F MOVL RO, TYPETD_PTR F 
01 E p CMPL ~=ss«&FCODE, #1 ~ : 0567 
3 BEQL 1 3 
DD PUSHL R ; 
dD 9 PUSHL @#@ 3 
00028362 8F DD PUSHL #164706 ; | 
F 4 CALLS #3, LIBSSIGNAL : | 
06 AF C A2 D 44 1% MOVL  12¢TYPEID PTR), DST_PTR ; 0568 
3 4 Ns p MOVL pst PTR, Rl : 0569 
0 2 Al 9A 00040 MOVZBL 2(RT), RO ; 


2 OO OO oo CO ooo _ 


G-Sep-1964 02:54:00 YAKGIY BLigs-B2 v4.0-742, Page 18 


ss 


52 3 A140 9E MOVAB 3R1) R02, TYPE_SPEC F 
4 AE OOF PUSHAB + 0570 
C AE OOF PUSHAB HIE : 
DD PUSHL TYPE SPEC : 
0000v cf F CALL . FIND_TYPESPEC : 
13 éF ae mOvt nO ee rtsiie : 0577 
5 88 As 8 CMPB (TY be _SPEC), #2 + 0583 
g BEQL $ 3 
00 BRW $ 3 
53 3 A 28: MOVAB (R2) « VAL_PTR : 0589 
C AE 9F 00078 PUSHAB VALKIND : 0590 
4 AE OOF PUSHAB VAL_VECT ; 
3 0D PUSHL VAL_ P 
6A F CALLS #3, ppGssTA. VALSPEC ; 
03 Oc «AE p 0 CMPL YALKIN > 0591. 
0 0 BEQL : 
16 AS 9F 00089 PUSHAB P.AAC + 0593. 
1 Dd 0008C PUSHL : 
00028362 8F DD 000 PUSHL #164706 : 
$9 3 F CALLS #3, LIBSSIGNA F 
4 10 AE D 3$: MOVL vA _VECT, DESC. PTR + 0596 
C DD PUSHL : 0595 
4 0D 00090 PUSHL ss : 
68 2 FB CALLS @ “DgGEREAD gAtcess : 
08 Bc 4 p 0 MOVL DESC ADDR ; 0596 | 
6 02 AS 9A 000A6 MOVZBL Est pin), cara TYPE : 0603 
54 DD OOOAA PUSHL Hie + 0604. 
000000006 99 1 F CALLS . BEGSDATA LENGTH 3 
0 »D 908 MOVL BITS_USEB : | 
16 1 Bs BEQL + 0608 
08 AG 9 TSTB ests pon + 0609 | 
1.1 BNEQ ; 
09 Ah Og TSTB ©- 9(DESC_PTR) : 0610 
e:% BNEQ 4$ 3 
1 pp PUSHL #1 : 0612 
7E 3 D MOVO  DATA_TYPE, -(SP) : 
0000v CF re C7 CALLS #3. BBGSTYPEID_FOR_ATOMIC : 
1 DD OOOCE 48 PUSHL #1 > 0615 
3 OD PUSHL oF ee : 
4 DD 0000 PUSHL DES ; 
0000v CF ; FB D4 CALLS #3, CH PEID FOR_DESCR F | 
B 10009 5$: MOVL RO. @CELLTYPE ~ : 
ac 08 AG OA MOVZ2BL 11(DESC_PTR), @NDIMS : 0619. 
1 C DD PUSHL @NDIMS : 0620. 
000000006 99 . 2 CALLS #1, DBGSGET_TEMPMEM ; | 
9 D MOVL RO, SUBSCR VEC : 
14 a D MOVL  SUBSCR_VECT, @DIMVECPTR : 0621 
0 1 ce MNEGL #1, I : 0622 
3 BEB 7$ 3 
6340 D4 g$: CLRL —- (SUBSCR_VECT)C1) > 0623 
‘8 50 10 BC Fe $: AOBLSS @NDIMS, "1, 6$ pee 
07 02 a2 + 101 8$: APB (TYPE_SPEC), #7 ; 8 j 
OT ad 0010? he 


Page 19 
eo s-3 V4 0-742 ( - 
16-50-1984 3:78:99 + EbeeuG. Sacdastivees cases : 0687 : 
rete novia. TiTISE APEC? - SUOIRS : sei 
RSTTYPES A 00108 98: v (Re). RO $ 0664. : 
vboob ee 0a cs a fen 
10 noes $¢ Oolie PUSHAB VALKIND 
- BS Oe AE OF OOTIE PUSH VAL=PT VALSPEC ; 0645 : 
PU “ TA : 
RRR BS ey ow | 
A 126 a 10 ; : 
85 “« 3 1 12A PUSHAB PCAAD : 
2c na 9F 0012C PUSHL O16 + 0649 : 
1 0d 001 ‘ PUSHL A LIBSSIGNAL : 0650, ; 
62 8F DD 001 Rout: «VAC Veet Gest PTR 651 | ; 
000283 F a fon VL VAL . KDOR : | : 
: A108: 0 ESC_PTR, aD ; 
eet ae eee ee! 
C \° NEQ 118 RO ; | : 
. me BE RUS Uithcel hl, swe_soe Egese |; 
28 3 ots ae 18 ~ SiR) Type spect 3 0666 | 
1 3 11$ BC (FLAG : : : 
52 05 88 BS bore? ios PUSHL #1, FIND TYPREC_ FROM, TSPEC ; 0667 
' 53 BF bor se Sout” Ra’ acELCTYPE , Tes ; 
ae Sa 165 ROVAB' S(RODETYPE.SPECTI, TYPE_SPEC ; 0673, 
Real FB Bie pag: 
E DD O16 138: PUSHL SESC_PTR ; 0680, : 
BRE Re Bee cau <a 
SC_P ° = ° : 
2 FB 00173 MOVZBL 2(DESC_P | : 
9A 00176 SHL DESC TA.LENGTH ; 0683 : 
ae ie ALS phekoara, 8 |: 
000000006 99 30 OF tle eee A ieese pra) ; 0685 | ; 
1 EQ 148 > 0687 : 
oe MM 9 r: isi 9(DESC_PTR) ; 068 
9 Oc 43 001 PUSHL (SP) : ; 
i 0D 13 CALLS #3, BBGSTTPEID_FOR_ATORIC ; 0690 
7E FB 00197 RB 158 : : 
CF Vt OO19e SHL #1 : : 
0000v ° DD 001 148: oe Siu PTR : ; 
3 DD OO1A te Be eee FOR_DESCR : 0698 : 
3 FB ty move a F acELLTYPE ; : 
CF BD OIAD lek; pustt | SNBINS T TEMPMEM : 0699 : 
at ae 10 BC DD 90180 ope Rove” RO” SUBSER UECT 0700 : 
cones 9 PARE Be Bilt heed pee 
4 «BC 4 bs Bo1c4 BRB 1 FLAGS PTR), 18$ 
56 EY Ole? 178: BBE : 
65 
16 


RS PE SR Be Fee pacage 


F 
RSTTYPES 16-Sep-19 :5 Ax-11 et Liss-32 v4.0-762 Pp 
yee+008 1exgen=}38e 98: a BF Braue. Sactastevees eset age 90 
DD 001¢ S TyPE PECI : 07 
0000v _CF of Fe iff choc$ PERNT TYPREC FROM TSPEC : — 
FC A344 1¢ MOV 4% ; -4(SOBSCR_VECT)CTJ ; 
62 3¢ 109 MOVZWL (TYPE SPE “ho. + 0707 
02 ads 1D MOV (RODETYPE_SPECTJ, TYPE_SPEC1 : 
11 QO1DA BRB ; 
PS S815 18H: Eitea a : 
04 if ; 


: 0702. 
Fe ABSA : <4 suBscR VECTCIJ : 0711. 

pp 54 10 BC : DIMS, 17 : 9700 

RET : 0721. 

; Routine Size: 486 bytes, Routine Base: DBGSCODE + O1IA | 
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-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


3 38 q § } GLOBAL ROUTINE DBGSSTA_TYP_ATOMIC(TYPEID, TYPECODE, BITSIZE): NOVALUE = : 
; 38 eo | i FUNCTION ; 
3 7 1! This routine returns the VAX ssenderd type code ("‘one-byte type code’) $ 
3 § : : and the bit length for a specified atomic data type. : 
; ; 728 1 | INPUTS ; 
3 7 1! TYPEID = The Type ID of an Atomic data type whose VAX standard type $ 
3 7 1! code is to e returned. This data type must have the Format é 
; 5 4 : : Code RSTSK_TYPE_ATOMIC. : 
; 608 : : TYPECODE = The address of a longword location to receive the type code. ; 
; 735 1 BITSIZE = The address of a longword location to receive the bit Length : 
3 2i9 : : of an item of this type. : 
; 61g 738 1 | OUTPUTS : 
; 61 7 1! TYPECODE = The VAX standard type code for the specified data type is é 
; oi3 oe : : returned to TYPECODE. : 
i $16 me ti BITSIZE = The bit Length is returned to BITSIZE. 3 
: 618 744 1: No value is returned. ; 
i $19 m5 1! : 
; 621 7% BEGIN 3 
Be : 
; 624 750 TYPEID: REF RSTSENTRY; ! The input TYPEID for the atomic type 3 
: 6 7 LOCAL ; 
; 6 $ 7 4 FCODE, 3 
; 628 754 SIZE | ; 
; 6 755 DST PTR : REF DSTSRECORD, | : 
3; 6 7 $ TYPE SPEC : REF DSTSTYPE SPEC, é 
; 631 7 TYPETD_PTR : REF RSTSENTRY; 3 
; 6 § 7 : $ 
; 3 780 | 
> 635 761 TYPEID PTR = FIND TYPE RECORD(.TYPEID, FCODE, SIZE); | ; 
: 6 76 If ,FCODE NEQ RSTSK_TYPE_ATORIC 3 
; 638 76% $DBG_ERROR('RSTTYPES\TYP_ATOMIC"); 3 
$ 640 766 DST_PTR = .TYPEID PTRCRSTSL_DSTPTR); ; 
3 641 76 TYPE SPEC = DST_PTRCDSTSA_TYPSPEC 7§_aDDR) + .DST_PTRCDSTS$B_TYPSPEC_NAME); 3 
3 O66 708 -TYPECODE = . TYPE_SPECCDST$B_TS_ATOM_TYP); 3 
; 66 7 eBITSIZE = .SIZE; 3 
3 6646 770 IF (.. TYPECODE €oL DSCSK_DTYPE_T) AND (.SIZE EQL 0) THEN .BITSIZE = 2BPUNIT; 3 
3; 645 771 RETURN; é 
3 oe | 77 3 
64 77 END; : 


SEG is BE a ee er TE gan cack oy ere 


RsTTYPES 1eSep-198e 19:18:57 — EDeauG. SACSASTFYPEs.es271 Pee 65 
41 SF 50 59 54 SC 53 45 50 59 54 54 53 52 J3 00055 PLAAE: ASCII <19>\RSTTYPES\<9Z>\TYP_ATOMIC\ 
43 49 GD GF 54 0006 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0004 ENTRY DBGSSTA_TYP_ATOMIC, Save R2 : 0722. 
SE 98 C2 SuBL2 #8, SP ; | 
: BD PUSHL SP t 0761 
98 AE OF PUSHAB FCODE ; 
4 AC OD A PUSH TYPEID ; 
0000v cf : FB CALLS #3, FIND_TYPE_RECORD : | 
$ ) 1 VL RO pveeyo pia : 
0 04 AF D4 1 CMPL = FCODE, # + 0762, 
1 1 BEQL ~=s«18 : 
H AA P | 
00000000' f F O18 PUSHAB p E 0764 
00028362 8F DD PUSHL #164706 : | 
000000006 99 FB CALLS 43 LIBSSIGNA ; | 
oc A 1$: MOVL  12(TYPEID_PTR), DST_PTR : 0766, 
2) 8 A A $8 MOVZBL 2(DST_PTRY : 076 | 
0 A140 9€ MOVAB 3(R1)EDST PTR], TYPE_SPEC ; 
08 BC 03 Ad 9A 000 MOVZBL 3(TYPE SPEC), aTYPECODE > 0768 | 
C BC 6E DO 0004 MOVL SIZE, SBITSIZE : 0769, 
OE 08 Bt D1 00046 CMPL aTYPECODE, #1 : 0770! 
8 12 O004A BNEG = 2$ : | 
—E DO 9 4C TSTL size F | 
4 1 Oa BNEG $ ; 
oc ac 8 p 9005 MOVL #8, @BITSIZE ; 
4 00054 2%: RET + 0773 


3; Routine Size: 85 bytes, Routine Base: DBGSCODE + 0300 | 


3 o3 wre } GLOBAL ROUTINE DBGSSTA_TYP_DESCR(TYPEID, DSCADDR): NOVALUE = 

3; 6 7g 1 ! FUNCTION 

3; 6 § 7 1! This routine returns the address of a VAX standard descriptor for a 
: ? ? re ! specified descriptor-defined data type. 

: 655 780 1 | INPUTS 

3; 6 $ 781 1! TYPEID = The Type ID of the data type whose descriptor is to be 

3 ° f § : } returned. Its Format Code must be RSTSK_TYPE_DESCR. 

; 6 a 7 1! DSCADDR = The address of a longword location to receive the descriptor 
; 290 5 ; : address. 

; 66¢ 787 1 | OUTPUTS 

: 66 7 : 1! DSCADDR - A pointer to the data t type's $ VAX standard descriptor is 

; 6646 7 1! returned to DSCADDR. T descriptor may not survive past 
3; 665 re } the end of the current command. 

3 re] Ore 1! No value is returned. 

: eo re 

; $90 795 BEGIN 

: 8h +99 MAP 

; 67 ia TYPEID : REF RSTSENTRY; ! The input TYPEID for the descriptor 
; 676 7 ! data type 

4 $7? got LOCAL 

g red O¢ SIZE 

: 678 0 F CODE 

3; 679 04 DSC_PfR 

3 680 5 TYPE SP PEC : REF DSTSTYPE SPEC, 

3; 681 B08 DST_PTR i REF DSTSRECORD 

; 682 80 ryPEID'P : REF RSTSENTRY, 

; 08 VALKINO 

; 09 VAL_VECT : ont] 

; ob + VAL_PTR : ‘ref Cost VAL SPEC; 

18 

; ret] 14 TYPEID_PTR = FIND_TYPE_RECORD(.TYPEID, FCODE SIZE E); 

3 690 15 IF .FCODE NEQ RSTSK_TYPE DESCR THEN SOBG_ERROR('RSTTYPES\TYP_DESCR 10°); 
; 691 16 DST_PTR = .TYPEID PTRER T$L_OSTPTRI; 

: 69, 1 TYPE_SPEC = DST_PTRIDST TYPSPEC T§_ADOR) + .DST_PT RCOSTSB_ TYPSPEC_NAME]; 
; 69 3 TYPE"SPEC = FIND TYPESPECT.TYPE SPEC, SIZE, DST PTR); 

: 69% 1 VAL_PTR = TYPE_SPECCDSTSA_TS_DSC_VSPEC_ADDR); 

: 695 0 DBGSSTA VAL SPEC (VAL PTR, VAC_VECT, VACKIND); 

; 696 1 F .VALRIND NEQ DBGSR yal beste THEN $OBG_ERROR('RSTTYPES\TYP_DESCR 20°); 
3; 69 ¢ ~DSCADDR = .VAL_VECTCO 

; 698 RETURN; 

3 444 4 

; 700 5 END; 


-PSECT DBGSPLIT,NOWRT, SHR, 


ea 02:58:00 yayett BLina=82 4.0 


PIC,0 


rags iecbet9ge QE:HH:99 YMG SLGgcHEyphetals2, Pome gt 


44 SF 50 59 54 SC 53 45 , 6 4 ; ! $7 P.AAF: ASCII <21>\RSTTYPES\<92>\TYP_DESCR 10\ 
Peeree: 
0 4 4 


am 


44 SF 50 59 54 SC 53 45 3 P.AAG: .ASCII <21>\RSTTYPES\<92>\TYP_DESCR 20\ 


«PSECT DBGSCODE,NOWRT, SHR, PIC,0 


3; Routine Size: 129 bytes, Routine Base: DBGSCODE + 0355 


C .ENTRY DBGSSTA_TYP_DESCR, Save R2,R3 7 0774 
33 000000006 00" 9 MOV bIBSSIGRAL, “RS : | 
E C UBL a SP : 
8 AE OF C PUSHAB SIZE 7 0814 
4 AE OF F PUSHAB F CODE ; 
4 AC OD if PUSHL  TYPEID ; | 
0000v ct 9 FB 1 CALLS 3, FIND TYPE_RECORD : | 
D 1A MOVL §R TVPETO_PTR ; 
0 6 Dt 1 CMPL F CODE, a : 0815 | 
71 BEQL Ss ; | 
00000000' EF 9F 00 PUSHAB P.AAF ; | 
DD 000 PUSHL #7 : 
00028362 8F DD 90 A SHL #164706 ; 
63 FB CALLS #3, LIBSSIGNAL F | 
04 AE OC A2 00 00033 18: MOVL  12(TYPEID_PTR), DST_PTR : 0816, 
51 04 AF 0 000 VL ST_PTR, Rl ; 081 
50 3 Al 38 MOVZBL 2(RT) fo ; 
5 A140 9E 0004 VAB_ 3(R1)EROJ, TYPE_SPEC ; | 
AE 9F 00 PUSHAB DST_PTR : 0818 
OC AE 9F 00048 PUSHAB SIZE 3 
50 DD 0048 PUSHL TYPE SPEC ; | 
0000v cf : FB 4 CALLS #3, FIND TYPESPEC ; 
0 ¢ 05 ADDL2 #3. VAL_PTR : 0819 | 
OC AE OF PUSHAB VALKIN : 0820 | 
14 AE OOF 8 PUSHAB VAL_VECT ; 
50 DD B PUSHL VAL~ ; 
000000006 00 03 F 904D CALLS #3, DBGSSTA_VALSPEC ; 
0 0c AF D 64 CMPL YALKIND, #3 : 0821 
1 0068 BEQL $ ; 
00000000 EF 9F 006A PUS P. AAG ; 
1 0D PUSHL #i ; 
00028362 8F 0D 0007 PUSHL #164706 3 
63 3 FB 7 CALLS #3, LIBSSIGNAL ; 
08 BC 10 AE pO 00078 28: © MovL = VAL_VECT, @DSCADDR : 08 2 | 
4 0008 RET 3 0825 
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GLOBAL ROUTINE DBGSSTA_TYP_ENUM(TYPEID, NELTS, ELTVECPTR, BITSIZE): NOVALUE = 
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FUNCTION 
This routine returns information about a epec tf ted enumeration type. 

The type is identified by a Type ID, and the returned information 

includes the number of enumeration elements, a vector of SYMIDs 

for all the elements, and the bit length of an element of this type. 

(Each ‘element’ is a constant of the enumeration type in this terminology.) 


INPUTS 
TYPEID = The Type ID of the Enumeration type whose information is to 
be returned. Its Format Code must be RSTSK_TYPE_ENUM. 


NELTS = The address of a lonaword location to receive the number of 
constants there are of the enumeration type. 


ELTVECPTR = The address of a Longword location to receive a pointer to 
a@ vector of SYMIDs for the enumeration type elements. 


BITSIZE = The address of a longword location to receive the bit length of 
an item of this type. 


OUTPUTS 
NELTS = The number of enumeration type “elements’’ (i.e., the number of 
distinct values of the type) is returned to NELTS. 


ELTVECPTR = A pointer to a vector of SYMIDs for the enumeration type 
elements is returned to ELTVECPTR. The elements are stored 
in order of their values. Each element's SYMID can then be 
used to extract the element's name and value. This vector 
disappears at the end of the current Debug command. 

BITSIZE = The bit length is returned to BITSIZE. 


No value is returned. 
BEGIN 


TYPEID : REF RSTSENTRY; The og TYPEID for the enumeration 
: ype 


LOCAL 
TYPEID_PTR : REF RSTSENTRY, 
FCODE, 
SIZE; 
TYPEID PIR = FIND TYPE RECORD(-TYPEID, FCODE, SIZE): 
IF .FCODE NEQ RSTSK_TYPE ENUM THEN SOBG_ERROR(*RSTTYPES\TYP_ENUM®) ; 
.NELTS = .TYPEID PTRERSTSL_TYPCOMPCNT); 
SELTVECPTR = TYPEID_PTRCRSTSA_TYPCOMPLST); 
-BITSIZE = .SIZE; 
RETURN; 


4 
1e-33b-188e 98:78:99 = YOkadG Bhlsasteybes asec 


) 


ref 


bleime 03:48:00 YANCY BL igscte yea02742, Pase 26 


ss 


; 759 0883 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
45 SF 50 59 54 SC 53 45 50 59 54 54 53 2¢ 11 $0033 P.AAH: .ASCII 9 <17>\RSTTYPES\<92>\TYP_ENUM\ 3 
4D 4E A 


-PSECT DBGSCODE.NOWRT, SHR, PIC,0 


3; Routine Size: 63 bytes, Routine Base: DBGSCODE + 0306 


ENTRY I aed Save R2 3; 0826 | 

PUSHL ; 0876) 

8 USHAB 3 

r PUSHL EID F 

0000v CF CALLS, FIND TYPE RECORD ; | 
2 MOVL RO, TYPETD_PTR ; 

04 CHPL CODE. a ; 0877) 

BEQL ‘$ 3 

00000000' PUSHAB B AAH : | 

PUSHL 3 

00028362 SHL ; | 

000000006 00 CALLS a GNAL 3 | 
08 BC 38 VL ttt PIR). QNELTS ; 0878 
16 Be : ve re an £0880 | 
RET ; a683 

| 

| 


"10 
-Sep-1 258: AX-11 Bliss-32 V4.0-742 Pa 7 
19-808-1382 96:78:99 DEBUG. SRC Ssifvbes pooet 9 495 
GLOBAL ROUTINE DBGSSTA_TYP_PICT(TYPEID, LANGCODE, PICTPTR, PICTVAL, PSCALE): NOVALUE = | 
FUNCTI 


ON 

This routine returns information about a Picture data type (as used in 
Cobol and PL/I). The input data type is represented by a Type ID, and 
the picture's language code and picture string are returned as output. 


TYPEID = The Type ID of the Picture data type whose information is to 
be returned. Its Format Code must be RSTSK_TYPE_PICT. 

LANGCODE - ae address of a longword location to receive the Language 
co 


PICTPTR = The address of a longword location to receive a pointer to the 
picture itself. 
anguage-specific picture encoding. 


PSCALE = (Optional) The address of a longword to receive the 
OUTPUTS scale factor and digit-count for this picture. 


LANGCODE = The picture language code is returned to LANGCODE. 


PICTPTR - A peincer to the picture itself Copresented as a Counted 
ASCII string, is returned to PICTPTR. 


3 


oO 
NOUN —OOONOUSWIN OOM 
RIFIRIRIPISINIPIDPIJINIPIJRIPIPI/JIPIPIJII|JIIIIIA| a a as nd ad dd od od 


3 


PICTVAL - A pointer to the language-specific picture oneene is returned 
u 


to PICTVAL; if no such encoding exists, zero is returned. 


i 
i 

i 

i 

i 

i 

i 

‘ 

i 

i 

i 

i 

i 

i 

1 

: PICTVAL = ed address of a longword location to receive a pointer to the 
1 

i 

i 

i 

] 

i 

i 

] 

i 

i 

i 

: 

: No value is returned. 


BEGIN 


BUILTIN 
ACTUAL COUNT ; 


SODOOOSS 


ooocoo 


TYPEID : REF RSTSENTRY; ! The input TYPEID for the picture type 


LOCAL 
TYPEID_PTR : REF RSTSENTRY, 


FC 
pst PfR : REF DSTSRECORD, 


VALK IND 

VAL_SPEC, 

VAL“VECT : VECTORES) 
TYPE_SPEC : REF DSTSfYPE_SPEC; 


oO 


MEW —O 


—imte 


TYPED, FCODE, SIZE); 
MEN 6G_ERROR(*RSTTYPES\TYP_PICT"); 


vo4-000° iesbe9Hs Q5:48:99 YAEGNE SLUSH Ys ls Pee 


: 81 TYPE. SPEC = pst PIRCDSTSA TYPSPEC_TS_ADOR + g08I PTRCDSTS$B_TYPSPEC_NAME); 
; 81 4 TYPE“SPEC = ING TYPESPECT Ns a $I DST_PTR); 
: HUTGRRE.*igeTERECESER Nbc are tog 
; 3 5 if, TYPE_SPECLOSTSW_ $_LENGTH gin -TYPE_SPECCDSTSB_TS_PIC_PLENG] + 3 
3 B26 <3 BEGIN 
3; B25 VAL_SPEC = ..PICTPTR + .TYPE_SPECCOSTS$B_TS PIC _PLENG); 
; $ 4 DBGSSTA VALSPEC( VA VAL t Srec, VAL_VECT, VACKIND) 
: 808 iF Cn tANGCODE: EOL ‘DEGei COBOL) AND ACTUALCOUNT() GTR 4 
; Q § -PSCALE=.(. TYPE_SPEC+. TYPE_SPECCDSTSW_TS_LENGTHJ)<0,16,0>; 
; : 955 END 
Py | 
; He ELSE 
: 5 R28 -PICTVAL = 0; | 
; 8s 960 RETURN; 
; 838 961 
; 839 962 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
50 SF SO 59 54 SC 53 45 50 59 56 54 53 53 11 QOOAS P.AAI: ASCII <17>\RSTTYPES\<92>\TYP_PICT\ ; 
54 43 49 00084 ; 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 | 
000 ENTRY pegssyp- Te rier. Save R2,R3 : 0884 
SE 1¢ SUBL2 #28, SP : 
08 AE PUSHAB ; 0938 | 
04 AE SHAB ope : | 
4 A PUSHL PEID ; 
0000v ct 9 CALLS a. ie TYPE RECORD ; | 
38 6f CMPL F CODE 4?! : 0939 | 
1 BEQL : 
00000000° &F PUSHAB 4 AAI ; 
1 PUSHL ai : 
00028362 «&F PUSHL #164706 : 
000000006 00 3 CALLS #3, LIBSSIGNAL ; | 
04 AF Cc (OA MOVL  12¢TYPEID_PTR), DST_PTR > 0940 
AF ME ST PTR, Rl : 0941. 
9 2 A MOV2BL 2(RT) Ro ; 
A140 MOVAB 3(R1)(ROJ, TYPE_SPEC : 
a OAR PUSHAB DST PTR > 0942 
Cc h(COA PUSHAB SIZE : 
SHL TYPE SPEC : 
gen Sais: Cl targa a 
08 aC 06 A MOVIBL 4(fyPE_SPEC), @LANGCODE + 0943 


1 
mss T3PES 1$-ben-1964 02:58:00 YAN-I1 BLigg=82 y¢.0-742 Page 29 


<zD 


oun 


0c 06 A E 7 MOVAB 6(R2), @PICTPTR 3; 0944 $ 
6 ¢ ¢ add Hi SPEC), R3 3; 0945 $ 

05 Ad 9A . MOV gL “SPECS, RO : : 

C ADOL #3, é $ 

9 CMPL RS, 4 3 $ 

f BLEQ § 3 3 

28 5 A2 9A 62 MOVZBL (TYPE ed 4 VAL _ SPEC : 0948 $ 

0 C BC 0 f ADDL tp} igh LSP Pet 3 $ 

C AE f 3 PUSHAB VAL 3 0949 é 

14 A fF 7 PUSHAB VAL “VEC! 3 é 

i} i) 8 PUSHL VAL ~SP EC 3 3 

site | i 00 fe CALLS 3. “paGesTA veers 3 5 
1 Bs 48 AE OD MOVL VAL_V a A ; 0950 é 
0 0 aC D1 ang CMPL ance ODE, : 0951 : 

1 i ; BNEQ é é 

04 Cc 9 S D CMPB (AP), #4 3 $ 

1B 000 BLEQU 3 3 

634 fF 493 PUSHAB (R3)CTYPE_SPEC] 3; 0953 $ 

14 BC 9E C B38 MOVZ2WL @(SP)+, @PSCALE 3 : 
4 RET 3 0945 : 

10 BC D4 ie a ge: CLAL @PICTVAL ; 0958) $ 

04 0009D 3$: RET : 0962 : 

; Routine Size: 158 bytes, Routine Base: DBGSCODE + 0415 : 


11 
HRT NBETEEY WAGLLAESS ASS, 


: 1 +t4 } GLOBAL ROUTINE DBGSSTA_TYP_TYPEDPTR(TYPEID, REFTYPEID): NOVALUE = 
; § 299 | | FUNCTION ti t input the T ID of a Typed Pointer data t 
: ! routine accepts as inpu e e of a ed Pointer data e 
: 5 36 : : and returns the Type ID of the dota’ type it pointe to. oe 
: : 369 1 | INPUTS 
5 8 970 1! TYPEID = The Type ID of the ivy Pointer type whose referenced type 
; 2 44 } is to be returned. Its Format Code must be RSTSK_TYPE_TPIR. 
; ef 378 1/ REFTYPEID = The address of a longword location to receive the pointed-to 
: 28 ar ! H data type's Type ID. 
3 854 976 1 | OUTPUTS 
3 55 0977 1! REFTYPEID = The Type ID of the data type which is pointed to by the 
3 2 944 : } TYPEID Typed Pointer type is returned to REFTYPEID. 
; 858 980 1: No value is returned. 
3; 859 0981 1! 
; 0982 1 
3 61 09 BEGIN 
3 ; 0984 
3 0985 MAP 
3; 864 098 TYPEID: REF RSTSENTRY; ! The input TYPEID of the Typed Pointer 
; 865 0 ! data type 
s 0988 
3 0989 LOCAL 
3 8 0990 FCODE, 
; 56° 0991 TYPEID_PTR: REF RSTSENTRY, 
: 870 99 SIZE 
; 871 99 DST_ PTR: REF DSTSRECORD, 
: 2 994 TYPE_SPEC: REF DSTSTYPE_SPEC; 
ee Be 
: 875 $999 
3 o76 0998 TYPEID_PTR = FIND_TYPE_RECORD(.TYPEID, FCODE, SIZE); 
s 87 0999 IF .FCODE NEQ RSTSK_TYPE TPTR THEN $DBG_ERROR(*RSTTYPES\TYP_TYPEDPTR"); 
; 78 1000 DST_PTR = .TYPEID PIRCR STs. : 
3 79 1001 TYPE_SPEC = DST_PTRCDSTSA_TYPSPEC T§_aDoR) + ,DST_PTRCDSTS$B_TYPSPEC_NAME]; 
3 80 108 TYPE_SPEC = Imi _Trpepect. Tyee SPEC? SIZE DST_PTR); 
; 881 100 TYPE-SPEC = TYPE-SPECCDSTSA_TS_TPTR_{SPEC_ADDRI: 
; 8 1004 -REFTYPEID = FIND_TYPREC_FROM_TSPECT.TYPE_SPEC); 
: a7 : 5 RETURN; 
: 885 1909 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
54 SF 50 59 54 SC 53 45 29 e? 36 54 33 33 13 90087 P.AAJ: .ASCII <21>\RSTTYPES\<92>\TYP_TYPEDPTR\ : 
2 54 0 44 4 5 00C6 3 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


o-ie 03:48: " my-tt OL 183-82 4.02742 Page 3 


0004 SENTRY BGSSTA. TYP_TYPEDPTR, Save R2 : 0963 
5E 0c ¢ SUBL2 3 
8 AE PUSHAB Re + 0998 
4 AE OF PUSHAB tobe : 
4 AC DD PUSHL  TYPEID : 
0000v CF Q F CALLS #3, FIND_TYPE_RECORD : 
2 D 1 MOVL RO, TYPETD_PTR : 
6 6 D 18 CMPL FcODE, 6” + 0999 
1 1 BEQL Ss : 
00000000' EF 9F 18 PUSHAB P.AAJ : 
1 DD PUSHL #i : 
00028362 8F ODD 3 PUSHL #164706 : 
000000006 00 ; F CALLS #3, LIBSSIGNAL : | 
04 AE C A2 OD 1$: MOVL  12(TYPEID_PTR), DST_PTR + 1000. 
1 er p OVL ST_PTR, Ril + 1001) 
0 : Al 9A 9 MOVZBL 2(RT) Ro : 
0 A140 9E 00 VAB_ 3(R1)EROJ, TYPE_SPEC ; 
4 AE OF 04 PUSHAB DST_PTR + 1002) 
OC AE 9F 0004 PUSHAB SIZE ; | 
50 0D 0048 PUSHL TYPE_SPEC : 
0000v CF FB O4A CALL Ag FIND_TYPESPEC 3 
0 CO 0004F ADDL2 #3. TYPE-SPEC > 1003, 
0 DD 00052 PUSHL TPES pet + 1004. 
0000v CF 1 FB 00054 CALLS P FIND TYPREC_FROM_TSPEC : 
08 BC 0 00 ath MOVL 45 @REFTYPEID 3 
04 0005p RET : 1007) 


3; Routine Size: 94 bytes, Routine Base: DBGSCODE + 0483 


-Sep-1 75 AX-11 Bliss-3 
1$-ep-1964 02:58:00 yatet! gL is5=52, 
GLOBAL ROUTINE DBGSSTA_TYP_FILE(TYPEID, LANGUAGE, RECTYPEID): NOVALUE = 

i FUNCTION 


This routine accepts 9s input the Type ID of a File data type 
ated language code and record-type typeid. 


and returns the assoc 


i INPUTS 
: TYPEID = The Type ID of the File t Exes: 
Its Format Code must be RSTSK_TYPE_FILE. 


LANGUAGE = The address of a longword location to receive the File 
type’s LANGUAGE code. 


SE233F2 


' 
1 
' 
' 
' 
' 
' 
' 
' 
' 
! 
: RECTYPEID = The address of a longword location to receive 
' 
‘ 
' 
' 
' 
‘ 
! 
' 


3 1 1 

3 1 1 

$ 1 1 

3 1 1 

3 1 1 

3 1 1 

3 1 1 

5 1 1 

Py 1 1! 

3 1 1! 

3 1 1 

3 1 1 

| 130 

; rf ; : : the typeid for the File's record type. 
; 308 10 1 | ouTPuTS 

3 Soe + : ' LANGUAGE - The File type's language code. 

3 208 3 ; i RECTYPEID = The File’s record-type typeid is returned to RECTYPEID. 
5 908 10 1: No value is returned. 

; 909 1 ee 

: 910 10 1 

; 911 10 BEGIN 

img 

: 914 19 TYPEID: REF RSTSENTRY; ' The input TYPEID of the file type 
: 91 1 LOCAL 

; 319 19 § DST_PTR: REF DSTSRECORD, 

; 918 10 TPE SPEC: REF DSTSTYPE SPEC, 

: 919 9 ives Pero. PTR: REF RSTSENTRY, 

: 921 1 ; FCODE; 

; 9 § 1 

. 

: 925 1 TYPEID PTR = FIND_TYPE RECORD. Type FCODE, SIZE); 

; 9 $ 1 IF .FCODE NEQ RSTSK TYPE CE N. $086 ERR FT TTYPES\TYP_FILE"); 
: 9 1 § DST PTR = .TYPEID PTRCR rsit ESTP PER, 

; 928 1 TYPE_SPEC = DST_PTRC(DST bepsPEC 1§ ~Apon) + .0ST_PTRCDSTSB_TYPSPEC_NAME); 
; 9 1050 TYPE"SPEC = FIND TYPESPECT. TYPE SPEC; » DST_PTR); 

3 4 1 2} » LANGUAGE = [vee SPECCDST ts FILE“LANG : 

3 3 1 : 26 tae DSTSu_ S_LENG Al GT 

: 9 z 1054 BEGIN 

: 9 1055 TYPE SPEC = TYPE SPECCDSTSA_TS_FILE_RCRD TYP): 

; 935 1 36 -RECTYPEID = FIND_TYPREC_FROM_TSPECT. TYPE SPEC); 

; 9 105 END 

> 1989 E 

; 939 .RECTYPEID = 0; 

+ 941 1 ; RETURN; 

: ok 1 

; 94 1 


F 11 
1e$p-198e $8:i8:27 — Eogaus. SacSAstivpes cases Page 13} 


«PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
46 SF 50 59 54 SC 53 45 50 59 54 54 33 _ 4 P.AAK: ASCII <17>\RSTTYPES\<92>\TYP_FILE\ 3 
45 4C 49 oc 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0004 ENTRY SSTA. TYP_FILE, Save R2 : 
5E 0c ¢2 SUBL2 ney SP 3 
8 AE OF PUSHAB + 1046) 
4 AE OF PUSHAB FCODE ; 
4 aC OD PUSHL TYPEID : 
0000v CF Q FB CALLS #3, FIND_TYPE_RECORD : 
2 D MOVL RO ivPeTp. PTR : 
F 6f bt CMPL F CODE, a + 1047 
BEQL Ss} ; | 
00000000" EF 9F PUSHAB P.AAK : | 
1 0D PUSHL = #i ; 
00028362 8F DD SHL #164706 : 
000000006 00 3 F CALLS #3 LIBSSIGNA ; | 
04 A C A2 D 1$: MOVL  12¢TYPEID PTR). DST_PTR + 1048 
4 AF p ROVE ST_PTR, Ri + 1049 
8 ; A A 000 MOVZBL 2 (RT) to : 
A140 9E VAB_ 3(R1) CROJ, TYPE_SPEC ; | 
AE 9F 0004 PUSHAB DST_PTR + 1050. 
C AE OOF 4 PUSHAB SIZE 3 
3 DD 0004 SHL  ‘TYPE_SPE ; 
0000v CF FB O004A CALLS #3, FIND TYPESPEC : | 
08 B¢ 03 AO OA F MOVZBL 3<(fYPE wSPEDs @LANGUAGE > 1051) 
81 4 CMPW CC TYPE esp PEC), #2 + 1052) 
F : 7 BLEQU 2$ : 
50 C 9 ADDL2 #4, TYPE SPEC + 1055 
0 DD C PUSHL Tee : 1056 
0000v CF 1 FB CALLS . FIND _TYPREC_FROM_TSPEC ; 
oC BC 0 HOVL RO: @RECTYPE ID tues 
OC BC 04 00068 28: CLRL @RECTYPEID : 1966 
RET + 1064 


; Routine Size: 108 bytes, Routine Base: DBGSCODE + 0511 


1 


acm 


estes yScdeo-t9He 09:58:00 pares OLia8e yt 0-742, Page 34 


<z 


; 36 } 5 ! GLOBAL ROUTINE DBGSSTA_TYP_RECORD(TYPEID, NCOMPS, COMPVECPTR, BITSIZE): NOVALUE = : 
; 1 1 ! FUNCTION ‘ 3 
3 be 1 1! This routine accepts as input a Type 10 for a record (or ‘‘structure’’) 3 
3 1 7! data type, and returns the number +H record components, @ vector o 3 
3; 9 1 record component SYMIDs, and the bit Length of the record as output. ; 
; 9 1 1! The record conpenant SYAIDs can then be used as input to other symbol 3 
; 9 § ; : : table access routines to extract the component names, types. and values. : 
3 3 4 1 1 ! INPUT 3 
; 955 1 7% TYPEID = The Type ID of the Record data type whose component informa- 3 
3; 9 1 1! tion is to be returned. The Format Code of this data type 3 
3 3 ; ; : must be RSTSK_TYPE_RECORD. 3 
3 335 1079 1! NCOMPS = The address of @ longword location to receive the number of 

3 6 : e} ; : record components associated with the specified data type. 

3 366 + § 1! COMPVECPTR = The address of a longword location to receive a pointer to 

3 st 1084 : : a vector of component information. 

; 965 1085 1! BITSIZE = The address of a longword location to receive the bit length 

; 208 190% 1! of the record. 

; % 10 1! 

; 968 ise8 1 ! OUTPUTS 

3 bs 44 1090 ; : NCOMPS = The number of record components is returned to NCOMPS. 

; 971 1091 1! COMPVECPTR = A pointer to a vector of record c ment SYMIDs is re- 

; 376 1 § 1! turned to COMPVECPTR. There is one SYMID for each record 

; 97 1095 1! component in the vector; this SYMID can then be used to 

; 974 1 13 extract the component's data type, name, or value (offset 

; 975 1095 1! from the start of the record). This vector disappears at 

3 44 1098 ,? the end of the current Debug command. 

3; 97 1097 1! 

8 p44 | 1398 : : BITSIZE - The record's bit length is returned to BITSIZE. 

; 980 1100 1! No value is returned. 

; 981 1101 1! 

3; 9 11 ; 1 

; 9 11 BEGIN 

; 9 11 

; 4985 1105 

3 > $ i TYPEID: REF RSTSENTRY; ! The input TYPEID of the record type 

; 9 11 LOCAL 

:; 9 11 YPEID_PTR: REF RSTSENTRY, 

3 1110 FCODE, 

; 991 1111 SIZE; 

3 336 Wig 

; 99 111 

: 9946 1114 

; 995 1115 TYPEID_PTR = FIND TYPE_RECORD(.TYPEID, FCODE SIZE); 

: 296 BY IF .FCODE NEQ RSTSK_TYPE RECORD THEN $86 _ERROR( RSTTYPES\TYP_RECORD'); 

; 99 111 -NCOMPS = .TYPEID PTRIRSTSL_TYPCOMPCNT): 

; 99 1118 -COMPVECPTR = TYPEID_PTRCRSTSA_TYPCOMPLST); 

: 111 -BITSIZE = .SIZE; 

31 1159 RETURN; 

; 1001 1121 


agrees HecBen-1964 02:88:90 YAKeNT Bt ine= He 4.02762, Page 3 


: 1002 1122 #1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


52 SF 50 59 56 SC 53 465 50 59 56 54 53 53 13 9000 P.AAL: ASCII <19>\RSTTYPES\<92>\TYP_RECORD\ ; 
44 52 « 4F 43 4 EE : 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
0004 ENTRY DEGSSTA_TYP_RECORD, Save R2 : 1065. 
SE 8 C2 §UBL2 #8, SP ; 
—E OD PUSHL 71115 | 
08 AE OF PUSHAB : 
4 AC DD A PUSHL TYPEID ; 
0000v cf : F CALLS #3, FIND_TYPE RECORD : 
¢ D 1 MOVL = =_ RO TVPETD_PTR : 
0 04 AE D 1 CMPL FCoE, # : 1116) 
1 1 BEQL Ss ; | 
00000000' EF 9F 18 S P.AAL : 
DOD PUSHL 3 
00028362 = &F Dp ; PUSHL 64 706 F 
000000006 00 FB CALLS LIBSSIGNA ; 
08 Bc 38 A p 1$: MOVL cOcryPEID PIR @NCOMPS : 1117 
0c BC . a : MOVAB (R2), aCOMPVECPTR : 1118 
10 BC E 00 000 MOVL Ste. Sei tsize : 1119 
04 000 RET > 1122 


: Routine Size: 63 bytes, Routine Base: DBGSCODE + 057D 


1 
RSTTYPES 1b-5e =1984 02:58: AX-11 Bligs-32 v4.0-742 p 
yO4-008 ease e=h She 95:38:99 «HONE Sh igecte ves tS? age 18 
OBAL ROUTINE DBGSSTA_TYP_SET(TYPEID, PARENT.TYPE, BITSIZE, OFFSET): NOVALUE = | 


FUNCTION 
This routine accepts as input the Type ID of a Set data type (as in 
Pascal, for example), and returns the set's Length ond parent dove 
type as out ute A set is always assumed to consist of a bit string 

where each bit represents one member of the parent type. The parent 

data type, i.e. the data type of the set elements, can be any ordinal 

type (such as integer, enumeration type, character, etc.). 

INPUTS 
TYPEID = The Type ID of the Set type whose attributes are to be 

returned. Its Format Code must be RSTSK_TYPE_SET. 


PEW "OOONOUEWw 


GL 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
H PARENT_TYPE = The address of a longword location to receive the Type ID 
: of the set's parent type. 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


BITSIZE - acerene of a longword location to receive the length of 
e se 


OFFSET = (optional parameter) The address of a longword location to 
receive the virtual bit index of the first allocated bit 


OUTPUTS 
PARENT_TYPE = The Type ID of the set's parent type (i.e., the data type 
of the set elements) is returned to P ENT_TYPE. 


BITSIZE = The length of the set tree, Cin bits used to represent the 


OFFSET = If this optional parameter was specified, the bit number of 
the first allocated bit is returned to OFFSET. Currently | 
all SETs are allocated starting at bit zero - this parameter 
is provided for future expansion. 


set) is returned to BIT 


No value is returned. | 


BEGIN 


BUILTIN | 
ACTUAL COUNT; 


WN $$ O OOBNAOVUES WN $$ O OONOU SW 0 0 


MAP 
TYPEID : REF RSTSENTRY; ! The input TYPEID of the set type 


ODE 
E10 PTR: REF RSTSENTRY, 
PTR: REF DSTSRECORD, 


RARARER ERE RRR Ee 


PANAMA 
SRSA RWI HOOBNONE WN =O 


E tmp 
E_SPEC: REF DSTSTYPE_SPEC; 


Be Se Se Ge Se Se Ge Se Ge Se Se Ge Se Se Se Ge Se Ge Ge Ge Se Se Se Ge Se Se FF Se Ge SF Ge Se FF Se Se Se Se Se Ge Fe Se Se SH Ss Se SF SS Se Ss Ge Oe Se Se FHSS Os Ge 


a a a ee ee ee ed ed ed ed oe od nd 
ee ee em em ee ee a a ed ed ed ed ed od 
ee cc ce em me ee ec ee ae aed od = dd 


Se ea Fee SESS SSE SETTLES 
RIPDRIFIPIPDFIPIPIPIMPIJINIMI[PINPIN III a a a a a a a tk a kk tk tt tk a a 2 2 ot 


OONO UE WN OO 


TYPEID_PTR = FIND_TYPE_RECORD(.TYPEID, FCODE, SIZE); 


08 


3 Routine Size: 106 bytes, Routine Base: DBGSCODE + 05BC 


ibcden-1964 99:88:90 


yaya) li 5-36 V4.0-742 
DEBUG. SRCIRSTTYPES.832;1 


PTRCDSTSB_TYPSPEC_NAME]; 
DST_PTR); 


DBGSPLIT,NOWRT, SHR, PIC,0 
<16>\RSTTYPES\<92>\TYP_SET\ 


DBGSCODE ,NOWRT, SHR, PIC,0 
DBGSSTA_TYP_SET, Save R2 
#16, SP 

F CODE 
TYPEID 
#3, a TYPE RECORD 


RO, TYPETD_PTR 
F CODE, 5] . 


vo 
=: 
eo 
~ 
So 


6 
LIBS$SIGNAL 
TYPEID PTR), DST_PTR 


R 
trod, TYPE _SPEC 
TR 
PEC 
ND_TYPESPEC 
E~SPEC 
. FIND_TYPREC_FROM_TSPEC 
ARENT_TYPE 
f€, aBITSTZE 


M-42 BBB -YOUWNSO - 2 SB U— 


S 
as Ed 
Ad 
mm 
“~ 


; 1061 11 If .FCODE a > RSTSK_TYP get THEN $OBG_ERROR(‘RSTTYPES\TYP_SET'); 
3 3 § 11 DST PTR =, vere 4. RST OSTPTRI: 
3 1 11 ihe Ha}: = DST_PTRCDST YPSPEC $ ADDR) + DST 
3 1 11 TYPE_SPEC = FING Tape erect Tyee SPEC, SI qd 
3 1065 1 TYPE-SPEC = TYPE-SPECLDSTSA_TS SET PAR_TSPEC_ADDRI: 
3 1 1185 -PARENT_TYPE = FIND_TYPREC_FROAM_TSPEC(-TYPE_SPEC); 
3 1 11 -BITSIZE = .SIZE; 
3: 1 11 If ACTUALCOUNT() GEQ 4 THEN .OFFSET = 0; 
3 3 11 : RETURN; 
3; 1070 11 
3; 1071 11 END; 
-PSECT 
53 SF 50 59 54 SC 53 45 50 59 54 54 53 52 19 900r P.AAM: ASCII 
54 4 0102 
-PSECT 
0004 000 ENTRY 
5E 10 C2 0000 SUBL2 
5E DD 0000 PUSHL 
08 AE F op PUSHAB 
04 AC DD OOOOA PUSHL 
0000v gf 9 FB 00 CALLS 
; 1] g MOVL 
0 04 “f 1») CMPL 
15 1 ] BEQL 
00000000 EF 9F B PUSHAB 
1 OO 1 PUSHL 
00028362 F OD 3 PUSHL 
000000006 00 3 F CALLS 
08 AE A2 0D 18: MOVL 
1 a 3 MOVL 
0 A A MOVZBL 
0 A140 3 VAB 
AE fF PUSHAB 
1 AE 9F Pus 
50 oD PUSHL 
0000v gf fe CALL 
0 C ADOL 
0 OD PUSHL 
0000v CF 1 F CALLS 
BC 0 OD MOVL 
C Bf 6€ 3 MOVL 
4 gs CMPB 
1F BLSSU 
10 6C yi CLRL 
4 23: RET 


Page 48) 


Pe Pe See Se Se Se Se See Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Be 


a EE Wh MSIL, lt 


3 3 ie 1191 1 GLOBAL ROUTINE DBGSSTA_TYP_SUBRNG(TYPEID, PARENT altei ye HIGHPTR, 

: 10% 1198 13 te Aves 

:1 26 1194 1 | FUNCTION 

3; 107 1195 1! This routine ‘af the Type ID of a serenet data t type (as in Pascal, 
: 1 1138 1! for instance) and returns that type's paren pe, subrange 

3 3 1197 1! —nper ees and bit Tengt h. The perent ype can be any data type wit 

3; 1 1138 1! alues of reasonable size {e.g anything that can be represented as an 
3 1 11 1! nteger or real paeny and the Boge interval is returned as 

: 1 1 ii pointers to the lower hound uplus one the upper bound value. Both 

s } ; ; } values are assumed to be of the parent type. 

31 1 ¢ 1! INPUTS 

3 1 1 1! TYPEID = The Type ID of the arenes e data type whose attributes are to 
3 } ; 5 : } be returned. Its Format Code must be RSTS$K_TYPE_SUBRNG. 

: 108 1 89 1! PARENT "ing & - rly address of @ longword location to receive the returned 
3 19 : 4 ’ e 1D of subrange's parent type. 

: 1938 1210 1! LOWPTR = The address of <= longword location to receive a pointer to the 
3 1 ’ 1 ' lower bound value of the subrange. 

; 1998 1 18 +: HIGHPTR = The address of a longword location to receive a pointer to the 
3 1996 : 1 : upper bound value of the subrange. 

: 1098 1 1 1! BITSIZE = The address of a longword location to receive the length in bits 
3 74 ; ; ; : of an item of this type. 

: 1101 1 i$ 1! ouTPuTS 

3 1198 1220 1! PARENT we - The Type ID of the subrange's parent type (i.e., the data 
: 1103 1 : type of which this is @ subrange) is returned to “PARENT. TYPE. 
: 1105 1 § 1! LOWPTR = . Pointer to the lower bound value of the subrange ‘s gPenurned 
3 1398 1226 1! LOWPTR. This value must be interpreted as bein the 

3 11 1225 1! parent yee. The value disappears at the end of the yh 

3 BY : $ : ebug command. 

: 1110 1 $  - HIGHPTR = - Dolater to the upper bound value of the subrange is returned 
3 1111 1 1! HIGHPTR. This value must be intepreted as be me of the 

3 1346 1230 1! parent type. ™ value disappears at the end of the current 

3 a3iz : 1 : ebug command 

; HE : : : : BITSIZE = The length in bits is returned to BITSIZE. 

: i? : 5 ' No value is returned. 

: 1119 1 1 

3 i : BEGIN 

311 124 

3 i § ' ? TYPEID: REF RSTSENTRY; ! The input TYPEID of the subrange type 
: 183 1544 LOCAL UE 

11 $ 1245 SIZE fMP 

+11 3 124 TYPEID PTR: REF R SISEN 

714 124 TYPE_SPEC: REF Dsistye e* Sbec, 


nsrTyRes i$oBeoct9Rs 08:58:00 YAKeNT BL igse82 yh 0-742, Page 38 


311 124 VAL. T REF DSTSVAL SPEC, 
5 1131 124 DST-PTR: REF DST SRE ORD, 
: 11 : 1 VAL“VECT: VECTORL3J, 
at i ropes” 
: 1135 1 : 
: 11 1054 
3 11 1255 
311 1 § TYPEID PTR = FIND TYPE RECORD(.TYPEID, FCODE, SIZE); 
: 11 1 IF .FCODE NéQ RSTSK TyPE SUBRNG THEN $DBG_ERROR( 'RSTTYPES\TYP_SUBRNG'); 
: 1140 1 8 DST PTR =. vPEID PTRCRST ; DSTPTRI; 
31146 1 TYPE. SPEC = DST_PTRCDSTSA_TYPSPEC_TS_ADDR] + .OST_PTRCDSTSB_TYPSPEC_NAMEJ; 
7 114 1260 TYPE-SPEC = FIND_TY SPECT. TYPE SPEC> SIZETMP, DST_PTR); 
$116 1261 TYPE-SPEC = TYPE-SPECLDSTSA_TS SUBR PAR_T ; 
> 1144 1 ¢ -PARENT_TYPE = FIND _TYPREC_FROM_TSPEC(.TYPE SPEC): 
: 1145 126 VAL_PTR"= .TYPE_SPEC + .TYPE SPECLDST$W_TS CENGTH) + 2; 
: 1146 1264 DBGSSTA_VALSPECT. VAL PTR, VAC_VECT, VALRIND); 
3 116 1265 -LOWPTR™= VAL yect 0); 
; 1148 66 iF -VAL_PTR DST$B_VS_VFLAGS) EQL DSTSK_VS_FOLLOWS 
: i 9 $ VAL_PTR = .VAL_PTR + .VAL_PTRCDSTSW_VS_LENGTH] + 3 
: 11 1270 LSE 
: 1 § 4 VAL_PTR = .VAL_PTR + 5; 
: 1155 1 i DBGSSTA_VALSPEC(.VAL_PTR, VAL_VECT, VALKIND); 
711 § 1274 eHIGHPTR = .VAL_VECT[O); 
: 11 1275 -BITSIZE = .SIZE; 
: 1158 1 26 
: 1159 127 RETURN; 
MR BBE a 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
53 SF 50 59 54 SC 53 45 50 59 54 56 53 53 13 90104 P.AAN: .ASCII <19>\RSTTYPES\<92>\TYP_SUBRNG\ : 
47 4€ 52 42 55 00113 ; 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O | 
000 .ENTRY DBGSSTA_TYP_SUBRNG, Save R2.R3 : 1191 
53 000000006 MOV DEGSSTA-VALSPEC, ad ; | 
a SUBL2 #32, SP ; 
: PUSHL SP : 1256. 
08 AE PUSHAB FCODE ; | 
Lon PUSHL TYPEID F 
0000v CF 9 CALLS #3, FIND_TYPE_RECORD : 
3 MOVL = TYPETD_PTR : 
06 A CMPL FcODE. r) 3 1257 
1 BEQL si] ; 
00000000° EF PUSHAB P.AAN F 
1 PUSHL #i ; 
00028362 =F PUSHL #164706 F 


SS em 


ess ne 


~~ 
NUTT S NIUE 
< 


PUSHAB 
pe o vAL Veet 
CALLS i. “DBGSSTA veseee 


—~ 


vou-000° 1G-}ennt 984 93:78:99 «= HOkeue.Sacdast tubes esses 
om} OF OR GRER ns, GUMS FES BESIEMS, stom 
A ‘ vi ST i" Rt 
9 A MOVZBL gat ) fo 
Ae HBR OURS arta fnt). ree. sec 
1 A C PUSHAB SIZETAE 
D z PUSHL PE_SPE 
0000v i | 1 CALL ry: (ie Fix 5 TyPESPEC 
: C § ADDL2 a7. pe =3reC 
; p PUSHL TYPE spEt 
0090 CF CALLS #1, FIN No TYPREC FROM_TSPEC 
“ 5 ; HOV WL Rape aReny Hay 
i aoe y 2¢h0 RODE TEE anise VAL_PTR 
D 
F 
7 
1 
3 
1 


RO MOM $OD OS BW MWMOOWVIOCOPO VHT POOW 


oc BC 14 AE 7A MOVL VAL_VECT 
FD soa i cHPS (VAC_PTRS, #253 
1 MOVZWL 1(VAL_PTR 
33 8% A04 9 HOVAB (RO) EVAL orRd, VAL_PTR 
52 g 3s: ADDL2 #5, VAL_PTR 
19 AE 0093 3$: PUSHAB VALKIND 
18 AE OOF % PUSHAB VAL -VECT 
52 DD PUSHL V 
03 F 98 CALLS a3. “DaessTA VAL SPEC 
0 Bc 16 AE OD MOVL aAlGh 
4 6E b0 A MOVL STi ecaite 
4 OOOA RET 


; Routine Size: 168 bytes, Routine Base: DBGSCODE + 0626 


Be Se Ge Ge Ge Se Ge Sete Se Se Se Se Ge Se Se Se Ge Ge Se Se Se Fe Se Ge Ge Se Ge Se Se Ge Se Se Se 


N11 | 
vb4-005" 1e-Sep-19be 15:18:57 — EdkauG. SacSAsTi vPEs-as271 Pages) 
GLOBAL ROUTINE DBGSSTA_TYP_OFFSET(TYPEID, AREA_ADDR, AREA_LEN): NOVALUE = 
FUNCTION 


3 3 
3 1 
3 1 
3 7 
s 1 
3 1 
eo 1 
3 1 
oO 1 
3 3 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
s % 
3 1 
s 1 
3 1 
3 1 
3 1 
o 1 
3 7 
3 1 
3; 1 
2 1 
3 1 
3 1 
3: 1 
3; 1 
o 1 
3 1 
e 1 
o 1 
3 1 
3 1 
3 1 
3 1 
<7 1 
3 1 
3; 1 
> 
< 1 
3 1 
3 1 
: 1 
3 1 
3 1 
s % 
3 1 
31 
3: 1 
31 
oe 1 
3 1 
3:1 


This routine accepts as input the we ID of an Offset data type and 
it returns the address and length of the associated Area. Areas and 
Offsets are PL/I] data types. 


INPUTS 
TYPEID = The Type ID of the Offset data tyee whose attributes are to be 
returned. Its Format Code must be RSTSK_TYPE_OFFSET. 


AREA_ADDR = The address of a longword location to receive the byte 
address of the Area associated with this Offset. 


AREA_LEN = The address of a longword location to receive the byte 
length of the Area associated with this Offset. 


wi 


OUTPUTS 
AREA_ADDR = The byte address of the Area associated with this Offset 
is returned to AREA_ADOR. 


AREA_LEN = The byte Length of the Area associated with this Offset 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: is returned to AREA_LEN. 
: No routine value is returned. 

' 


BEGIN 


P 
TYPEID: REF RSTSENTRY 
AREA_ADOR: REF VECTOR(1), 
AREA-LEN: REF VECTORL1); 


LOCAL 
diddy REF DSTSRECORD, 


Pointer to the input Type RST Entry 
Address where we return Area address 
Address where we return Area Length 


Pointer to Offset Type Spec DST record 
The Format Code for this dat type 
The bit size of this data objec 
Pointer to DST Type Spec for Offset 
Pointer to the offset Type RST Entry 
The kind of value returned by the 
DBGSSTA_VALSPEC routine 
Pointer to the Area length value 
Three-longword yeuue vector returned 
y the DBGSSTA_VALSPEC routine 
Pointer to Value Specs in the DST Type 
Spec for Offset 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


65 
e 
4! 
i 
i 
f 
78 
79 
4 
i 
84 
85 
4 
88 
89 
90 
+4 
94 
95 
i 
98 
99 
00 
oo 
5 
04 
3 
3 
10 
1 
i 
14 
i? 
i 
i 


S 

TSPTR: REF DSTSTYPE_SPEC, 
TYPEPTR: REF RSTSENTRY, 
VALK IND 


VALPTR: REF VECTORE.LONG), 
VALVECTOR: VECTORC5,LONGJ, 


VSPTR: REF DSTSVAL_SPEC; 


! In case the caller passed in a SYMID for the Offset symbol instead of its 
! Type ID, we get the symbol’s actual Type ID here. We also make sure we 
' really have an Offset data type. 


' 
f 
! 
' 
TYPEPTR = FIND _TYPE_RECORD(.TYPEID, FCODE, SIZE); 
If. F CODE NEQ RSTSK"TYPE_OFFSET 


ee a a a a at ad at td 8 od td 4 wt = 8 = 8 SS = 2 


SSS SSS SASS OSS SOS OO OOO OOOOOO 
eee ON OOO NAP UN MOSR NE ARGH ODO RRC 


PRR ORO URRORURORURORORUROPONUTURUIIIPUPURIPUNUIII 8 at at tt at tt 
* 


12 
RSTTYPES 16-36 1984 02:58: AX-11 Bliss-32 V4.0-742 Page 42 
vO0-006 1 =30p-13be 93:38:99 DEBUG. SRCIRSTTYPES.832;1 “ (17) 
SDBG_ERROR('RSTTYPES\TYP_OFFSET'); 


! Get a pointer to the Type Spec DST Record and get a pointer to the actual 
! Type Spec within it (possibly after Type Spec indirection). 


! 
DSTPTR = .TYPEPTREIRSTSL_DSTPTRI; 
TSPTR = DSTPTRCDSTSA_TYPSPEC_TS.ADDR] + 


DSTPTRCDSTSB_TYPSPEC_NAMEJ; 
PTR = FIND ) 


-TYPESPEC(.TSPTR> SIZE, DSTPTR); 


-e., the address of the Area) to the AR parameter. 
VSPTR = TSPTRIDST$A_TS_OFFSET VALSPEC); 


DBGSSTA_VALSPEC(.VSPTR> VALVECTOR, VALKIND); 
AREA_ADBRCOJ = .VALVECTORCOI; 


' Gyecuste the first Value Spec in the Offset Lape Spec. Return the result 
} ( EA_ADDR 


! Get to the second Value Spec in the Offset Type Spec and evaluate it. 
} Return its result (i.e., the length of the Area) to AREA_LEN. 


if ,VSPTRCDSTSB_VS_VFLAGS] EQL DSTSK_VS_FOLLOWS 
VSPTR = VSPTRCDSTS$B_VS_ALLOC] + .VSPTRCDSTSW_VS_LENGTH) 


PPPS PAI BB BE EE PN 


=O ODNAMNE AN O CONOUESWO0Oan 


Be Ge Se Ge Se Se Se Se Se Se Ge Ge Se Se Se Ge Fe Se Se FH Se Se Se Se St Se Se St OF Se Se Oe SHS Se SESH Se ee 


368 ELSE 
rt) VSPTR = .VSPTR + 5; 
68 DBGSSTA_VALSPEC(.VSPTR, VALVECTOR, VALKIND); 
6 VALPTR = eet ty 
68 AREA_LENCO) = .VALPTRCO); | 
13% | 
1321 We are all done--return to the caller. | 
1398 RETURN; 
1378 
1375 (1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


4F SF 50 59 54 SC 53 45 50 59 2 23 33 7 P.AAO: .ASCII <19>\RSTTYPES\<92>\TYP_OFFSET\ : 


4 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


000C 00000 ENTRY DBGSSTA_TYP_OFFSET, Save R2,R3 : 1280. 
53 000000006 90 95 HOVAB DBGSSTATVALSPEC, r$ ; | 
£ C SUBL2 #28, SP ; 
8 AE OF C PUSHAB Siz : 1334. 
4 AE OF f PUSHAB F CODE ; 
4 AC dD 00012 PUSHL TYPEID ; 


12 | 
vo4-000° HE$e0r1984 99:98:00 YANG! euigectz ye, ozz42 Page 5 


; Routine Size: 146 bytes, Routine Base: DBGSCODE + O06CE 


1 
0000v cf 93 F 15 CALLS 43, FIND_TYPE_RECORD : | : 
Dd 1A MOVL RO, TYPEPTR : : 
6 p 1 cAPL FcODE, 7 + 1335 3 
00000000' EF 9F PUSHAB P.AAO ; 1337, : 
1 DD PUSHL #i : | ; 
000000006 00 ee oS pe " chet s ; £478 SIGNAL ; | 
8? At 0c 83 09 $ 1$: OVL 12(TYPEPTR), DSTPTR + 1343) : 
5 4 AE ¢ OVL STPTR, R1 ; 1344 | : 
50 ; Al 9A 0004 MOVZBL (RI) R0 ; | ; 
50 A140 9E O44 OVAB. 3(R1)€ROJ, TSPTR : | ; 
4 AE 9F 00049 PUSHAB DSTPTR + 1345) ; 
C AE 9F 0004C PUSHAB SIZE : : 
50 DD O004F PUSHL TSPTR | ; 
0000v cf 03 FB 00051 CALLS #3, FIND TYPESPEC ; | : 
2 03 AO 9E 006 OVAB 3(R0), VSPT > 1351. F 
OC AE 9F O005A PUSHAB VALKIND ; 1352) : 
14 A 4 9050 PUSHAB VALVECTOR : : 
63 03 FB Ose CALLS ae DaGSSTA VALSPEC : | : 
08 BC 10 AE DO 0006 MOVL VALYECTO SAREA_ADD : 1353) ; 
FD BF 62 91 OO06A CRPE | CVSPTR). #253 ; 1359) ; 
50 or 2B 32 BObSe BOY ZL ss : 1361, : 
52 03 a0 af 0074 MOVAB (ROD LUSP TRG, VSPTR : ; 
03 11 90079 BRB ; ; 
52 05 cO 00078 a8: ADDL2 #5, VSPTR > 1364 3 
Oc AE SF OOO7E 3$: PUSHAB’ VALKIND : 1366) : 
8 Fr dim Se agyg cto Leet 
63 0 FB 00086 CALLS nD DBGSSTA VAL SPEC : : 
50 10 AE D0 00089 MOVL VALVECTOR, QALPT : 1367) ; 
0c aC 60 DO 0008D MOVL (VALPTR), aAREA. CEN : 1368 F 
04 00091 RET : 1375 ; 


RSTTYPES a -1984 75 Ax-11 } Liss-32 V4.0-742 Page 44 
V 18-Sep-1984 95:73:99 «= Obes. Sacdastivees esos 9° 18) 
; } re ! 1 ! GLOBAL ROUTINE DBGSSTA_TYP_AREA(TYPEID, BYTE_LEN): NOVALUE = 

; 126 1 8 1 ! FUNCTION 

3; 126 1379 1! This routine accepts as input the Type, ! ID of an AREA data type 

3 ; C3 : ? : } and returns the byte length of the 

3 1 96 1 § 1 ! INPUTS 

3; 126 1 1! TYPEID = The Type ID of the AREA data type whose attributes are to be 
: : re : : : } returned. Its Format Code must be RSTSK_TYPE_AREA. 

3 3 % 1 $ ie: BYTE_LEN = The address of a longword location to receive a pointer 
: 1271 1 ,} to the byte Length of the AREA. 

3 3 if; 13868 1! 

3: 127 1389 1 ! OUTPUTS 

3 1276 1390 1! BYTE_LEN = A pointer to the byte Length of the AREA is returned to 
3: 1275 1391 1! BYTE_LEN 

3 1 8 1 3 1! 

3: 127 1393 1! 

3: 1278 1394 1! No value is returned. 

: 1279 1395 1! 

3; 1280 1396 1! 

: 1281 1397 BEGIN 

3 7 Hf 1398 

3; 128 1399 MAP 

3 ; ae e's TYPEID: REF RSTSENTRY; ! The input TYPEID of the PL/I AREA type 
: 1286 1406 LOCAL 

3: 1287 140 TYPEID_PTR: REF RSTSENTRY, 

; 1288 1404 DST_PTR: REF DSTSR 

3; 1289 1405 TYPE SPEC: REF DSTSTYPE pShEC. 

: 1290 1406 VAL_ SP REF DSTSVAL_SPEC 

; 1931 140 VALRIND, 

i | 4 1408 

> 129 1409 VAL_VECT: VECTORC3) 

3 1294 1410 

: 1295 1411 

3 1296 tt 

3: 1297 141 

: 1298 1414 TYPEID_PTR = FIND_TYPE RECORDC, ree D, FCODE, SIZE); 

3 1299 1415 IF .FCODE NEQ RSTSK_TYPE_AR cs BG FERRORCR RSTTYPES\TYP_AREA'); 
.* 1213 DST_PTR = .TYPEID PTRERETSC pen 

; 1301 141 TYPE_SPEC = DST_PTRIDSTSA bepSpEC 18 ADDR] + .DST_PTRCDSTS$B_TYPSPEC_NAME]; 
3 1 ‘ 1613 TYPE SPEC = FIND. TYPESPECT.TYPE_SPEC, SIZE, DST_PTR); 

31 141 If .SIZE EQL 

3 1 1420 THEN 

3: 1305 1421 BEGIN 

3 1 14 § VAL_SPEC = TYPE_SPECCDSTSA_TS_AREA_BYTE LEN); 

71 14 DBGSSTA_VALSPECT. VAL L apPEC. “vAC_VECT, VACKINDS; 

. s 1424 -BYTE_LEN = .VAL_VECT(O); 

3 1 1425 

3 3 14 $ 

3 1 14 ELSE 

3 1 14 3 -BYTE_LEN = .SIZE; 

3 1 14 

31 1430 RETURN; 

: 1 1431 

: 1 1432 END; 


ish 


41 SF 50 59 54 SC 53 45 50 59 54 54 : 


3; Routine Size: 


114 bytes, 


if 42 1 
1e-Sep-1 


ww 
ou 
vw 


0004 000 
5E 1¢ C2 
8 AE OF : 
tS OB ee 
0000v CF F 0 
gw RBS 
11 6E— 01 B18 
15 13 0001 
00000000" EF 9F 0001B 
1 0D 83 1 
00028362 F DD 3 
000000006 00 3 FB 00029 
04 AE of A2 00 000 
51 4 AE 3 $8 
50 ¢ Al 9A 00039 
50 A140 9E 000 
AE 9F 0004 
C AE 9F 0004 
50 0D 3 48 
0000v CF 03 F 4A 
08 AE D 4F 
18 1 bee 
50 0 § 0054 
OC AE OF TH 
14 AE 9F QO05A 
50 DD 0005D 
000000006 00 0 4 005F 
08 BC 10 AE 4 0 
4 00068 
08 BC 08 AE 00 0006C 
04 00071 


Routine Base: 


DBGSCODE + 0760 


1 a5 Pe 


—_ 
Aad 
or 


»PSECT 
ASCII 


-PSECT 


9c 18:18:27 — Ebeaus. SacSasitveescs 


ow 


DBGSPLIT,NOWRT, SHR, PIC,0 
<17>\RSTTYPES\<92>\ TYP_AREA\ 


DBGSCODE,NOWRT, SHR, PIC,0 
DEGSSTA. TYP_AREA, Save R2 
size 
OD 
PE 
, FIND_TYPE_RECORD 
ETD. PTR 
dpe, #1 


AAP 


E 

ID 
FI 
TYP 
E, 


SIGNAL 
EID,PTR), DST_PTR 


C 
Y 
3 
0 
C 
$ 
j 
164 
3ty 18$ 

TYPE 
ST_PTR 
( 0 
(R1)€ROJ, TYPE_SPEC 
ST PTR 
YE. 
3 IN 


PEC 
ND_TYPESPEC 


NAB MADUINGI~ SSB VHT 2B—~ 


#3, pbnigeee 
VALK IND 
VAL_VECT 


v C 
+t “DBGSSTA VAL SPEC 
L_VECT, @BYTE_LEN 


SIZE, @BYTE_LEN 


ne 
= 
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RSTTYPES 16-Sep-1 :58: AX-11 Bliss-32 V4.0-742 Pa 46 
yO4~008 ak eae ts 1 95:78:99 PreuG eactRsT Types Boost 9 49) 
3 131 1433 1 GLOBAL ROUTINE DBGSSTA_‘YP_VARIANT(TYPEID, NCOMPS, COMPVECPTR, TAG, 
1 14 4 BITSIZE): NOVALUE = 
:1 1436 1 | FUNCTION 
3 1 § 14 1! This routine accepts as input the Type ID of a Variant data type or the 
3 1 14 8 1! SYMID of a symbol of variant type, and it returns the number of variant 
3: 13246 14 1! components he SYMID of each such component, and the SYMID of the vari- 
: 1325 1446 1 i ant’s tag field. 
: } 3 100 i i INPUTS 
: 1 : 1208 1! TYPEID = The Type ID of the Variant data type whose attributes and var- 
s 1444 1! iants are to be returned. The Kind of this data type 
; : : 1042 : must be RSTSK_VARIANT. 
31 2 1003 1/ NCOMPS = The address of a longword Location to receive the number of 
: ; > 1243 ; } variant components of the TYPEID data type. 
5 1335 14 9 1 COMPVECPTR = The address of a longword location to receive a pointer to 
: : 1 ; @ vector of variant component SYMIDs and tag values. 
: 1338 14 g 1 i TAG - The address of a longword location to receive the SYMID of the 
: ; ; 1435 : } Variant data type’s tag field. 
: 1341 14 § 1 BITSIZE = The address of a longword location to receive the size in bits 
: ; § re ; : of an item of this type. 
: 1344 1289 1 ' ouTPuTS 
3; 1345 1460 1! NCOMPS = The number of components of the Variant data type (the number 
; ! § 146) ! of different ‘‘variants'’) is returned to NCOMPS. 
: 1348 1208 1 COMPVECPTR = A pointer to a vector of variant component information is 
3; 1349 1464 1! returned to COMPVECPTR. In this vector, there is a two-long- 
; 1350 1465 1! word entry for each variant component; each such entry gives 
3; 1351 1298 , 3 the SYMID and a pointer to the tag value, respect ively. of 
3 1 26 1467 1! the corresponding component. The SYMID can then be used to 
3 135 1468 1! extract the component's name, data type, and value. The tag 
3 1354 1469 1! value must be intepreted as a value of tag field's data type. 
3 ; 55 1009 : : This vector disappears at the end of the current command. 
: 1 33 1076 1: TAG - The SYMID of the variant tag field is returned to TAG. This 
; 1358 1475 1! SYMID can be used to extract the tag field name, data type, 
3 ; 59 ere : } and value. 
: 1361 1476 1: BITSIZE - The size in bits of an item of this type is returned to 
3 1 ¢ 1477 1! BITSIZE. 
3 1 1078 1! 
; : : yt ; No value is returned. 
:1 1481 1 
3 ' 1? § BEGIN 
:1 14 
3 : ¢ 5 TYPEID : REF RSTSENTRY; ! Pointer to Variant RST Entry 
51 14 LOCAL 
3 1 14 DSTPTR: REF ps Tene CORD 
71 14 TYPEID_PTR: REF RSTSENTRY, 


Ma Os Oe Be Oe Oe Ge Be Be Be Oe Be Be Se Se Be Ge Oe Fe Se Se Be Se FH Se Se Se Se Se oe Se Se Se Se Se FH Se SH Se Se FH Se Se Se Se Oe Oe FH Se Se Oe Oe Oe OH SH Se ae 


is 


i | 


wr 


—o oe et a a a a — 4 — 4 4 
ww 


56 SF 50 59 


; Routine Size: 


tt ae a a a 
PDE BEE EE EEE 


SRLS SSLSAELNLS 


54 SC 53 


68 bytes, 


f 


12 


-Sep-1 
~ep-1 


FCODE, 
SIZE; 
TYPEID_PTR = FIND TYPE_RECORD(.TYPEID 
If .FCODE NEQ RSTSK_VARIANT THEN $DBG 
-NCOMPS = Ab lg tl PTRCRSTSL iy 347-7 
-COMPVECPTR = rele PTRCRSTSA ate 
-TAG = ,TYPEID_PTRERSTSL_VARTAGPTRI; 
-BITSIZE = .SITZE; 
RETURN; 
END; 
45 50 59 54 54 53 38 14 0013E P.AAQ 
54 4E 41 49 52 41 00140 
ge 55 0000 
+4 AE 9F 00007 
4 AC OD OA 
0000V gf 03 F 0 
- 0 06 Ae bt 0001 
if 8 1 
00000000" EF 9F O16 
1 OO 1 
00028362 ; 00 
000000006 0 4 
8 C 0 A 
5 BC 1 A 
i a 
be 0043 


Routine Base: DBGSCODE + 07D2 


-PSECT 
ASCII 


-PSECT 
-ENTRY 
UB 


3B¢ 18:98:99 


AX-11 Bligs-32 V4.0-742 
DEBUG. SRCIRST TYPES B 5201 


Siler 
RSTTYPES\TYP_VARIANT"); 


DBGSPLIT,NOWRT, SHR, PIC,0 
<20>\RSTTYPES\<92>\TYP_VARIANT\ 


DBGSCODE.NOWRT, SHR, PIC,O 
DBGSSTA_TYP_VARIANT , Save R2 
#8, SP 


FCODE 

TYPEID 

#3, FIND_TYPE_RECORD 
RO, TYPETD_PTR 
FcODE. #1 


BSSIGNAL 
1D_PTR), @NCOMPS 
), SCOMPVECPTR 
PEID PTR), aTAG 
aBlTSIZE 
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vo4-000° 1erSep-19be 15:18:27 — Edeeue.SACSASTi bes vases ae 20) 


90 GLOBAL ROUTINE DBGSSTA_TYP_VARIANT_COMP(LIST_ID, NCOMPS, COMPVECPTR, 

21 NTAGS, fAGVECPTR, SIZE): NOVALUE = 

3 FUNCTION 

94 This routine accepts as input : parnter to a set of Variant fields, 

95 and it returns the number of fields, the SYMID for each field, the number 

% of tag Locks, a value range for each tag block, and the bit length of 
variant. 


INPUTS 
LIST_ID - A pointer to a List of variant fields; this list was produced 
by DBGSSTA_TYP_VARIANT and was pointed to by one element of 
the COMPVECPTR it returned. 


NCOMPS = The address of a longword location to receive the number of 
fields in this variant. 


oOo 
w 


COMPVECPTR = The address of a longword location to receive a pointer to 
a vector of field SYMIDs. 


NTAGS = The address of a longword location to receive the number of 
tag blocks. | 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

i 

i 

i 

i 

i 

i 

i 

i 

] 

¢ TAGVECPTR = The address of a longword location to receive a pointer to a 
: vector of tag value ranges. An element of this vector is the 
: ecoreee of a three longword block; each block has the following 
; ormat: 

lLongword 1: dst$Sk_varval_single = single tag value 

' 
i 
i 
i 
i 
i 
{ 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


or 
dst$k_varval_range = range of tag values 
Longword ¢: pointer to low bound value of tag range 
lLongword 5: pointer to high bound value of tag range 
(or zero if single value) 


SIZE - The address of a longword location to receive the size in bits 
of an item of this type. 


OUTPUTS 
NCOMPS = The number of fields is returned to NCOMPS. 


COMPVECPTR = A pointer to a vector of field SYMIDs is returned to 
COMPVECPTR 


Be Ge Se Se Se Se Se Ge Se Se Se Ge Se Se Fe Ge FH Ge Se Fe Ge Ge Fe Ge Ge Se Se Se Ge FF Ge Ge Se FH Ss Se SH Ge Se SF Se Se SH Se Se Se Fe Se Se Se Ge Se Se Se Ss Se Ge 
a a ak a ad ad ts = = a = a a a = = Sd 2a 2 a 4 2 a 
PIII III st st st et rt a a i a kk kk td a a 


8 

9 

40 

7 

28 

re) 
$3 48 This vector disappears at the end of the current command. 
: ; £8 NTAGS = The number of tag blocks is returned to NTAGS. 
: 29 SIZE - The size in bits of this variant is returned to SIZE. 
4 26 No value is returned. 
439 
440 4 
441 5 BEGIN 
468 $ 
ree} 38 LIST_ID: REF RSTSVAR_ENTRY; ! Pointer to Variant Component List Entry 
446 336 LOCAL 


yESeo-19Rs 08:58:00 yAKeNT Ligse82 v4 0-742 page 49 


abet (20) 


: REF RSTSTAG_LIST, 
HR SHEP setter 
1649 : WALOE SECs REF DSTSVAL-SPEC, 
$1080 1292 VACTVECT:  VECTORE3), 
i 14¢ 1869 VALRIND; 
3; 14 
We ig 
; 1 RSTSL_VAR_DSTPTRI; 
; 16 ; i ‘ tm pst Pratost$a TYPE REQ BST$Kk_VARVAL 
. 4 M4 } 
; 1485 i $DBG_ERROR('RSTTYPES\VARIANT_COMP® ) ; | 
: 1575 RSTSL_VAR_COMPCNT); | 
; 1468 13? NIAGS = gst pratpstsu VARVAL COUNTS; 
3 146 137 . j rer DSTSL_VARVAL_SIZE; | 
ieee 157 SiZe is DST. iy ' | 
4 157 ee | 
; 1486 1384 COMPVECPTR = LIST_IDCRSTSA_VAR_COMPLST) | 
3: 146 " 
; 1469 13 5 ELSE COMPVECPTR = 0; 1 ler 
; OCKSIZE * .. 
; 1470 1 T = DBGSGET TEMPMEM(RSTSK TAG B 
; 1385 Taccbia BSTSA_VARVAL_RAGSPECI; 
ite HEB TASPIN cos IRCaST Ee VAAL 
: teh 13 orci SPEC = TAG_PTRC1); _TAG.PTREO); 
ALS) = | 
1476 1390 sacs TS i 1 ,RSTSC TAG Mim ‘eb VAL_VECT> VAL): 
: 147? 1293 TAG. eras T,RSTSL_TAG_COWBOUND] = .VAC_V 
: 1e73 1388 VAC-UNGTH _SPECLDSTSB_VS_VFLAGS) EQL DSTSK_VS_FOLLOWS | 
hea 129? VAL_LNGTH = .VALUE_SPECCDSTSW_VS_LENGTH) + 3; | 
ie 1337 IF _.TAG_PTRCO] EQL DSTSK_VARVAL_RANGE | 
; 16 THEN ~ 
; 1485 1292 BEGIN es | 
: 16 1601 & See SPECC DALUE SPLCOTWAC VECT . VALKIND); 
: 1601 4 ALUE SPEC vA Ne 
i 18 Rt SEGA PAGE hand ts, HEI 2 
: 1489 TH S_FOLL | 
16 18 é If -VALUC_SPEECDSTSB_VS_VFLAGS) EQL DSTSK_V te | 
art: 1606 4 VAL_LNGTH = .VALUE_SPECCDSTSW_VS_LENGTH] + 3; | 
; 1298 1607 4 - sil 
7 149% 1608 4 TAG_PTR = .TAG_PTR * .VAL_LNGTH; 
° 1495 1 4 END™ 
te OMS 
: 1438 181¢ ae. PTR = .TAG_PTR + .VAL_LNGTH ¢ 1; 
oe 14 oll 
; 1614 
; 1301 1615 END; : 
: 1308 1619 -TAGVECPTR = .TAG_LIST; 


ss 


Leer 


-PSECT 
54 ASCII 


41 49 52 41 56 SC 53 45 28 4 Fr 23 


SF St de Ootee 
-PSECT 
O1FC 00000 «ENTRY 


000 
00 
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000000006 
04 
01 

00000000° 

00028362 


ss 
Sum 


MO WO WA NIO NII S MUNI 
ouwon 
WMNonow 


. 


000000006 +4 


C 
1 BC 
1 BC 


rouInc 


90 


oo 

WO 

oOooooo oo 
Oooooocecoo 
—f 


oc 


7€ 10 
000000006 


QOPrVNCOTO POD FS FP POROM—POy 


56 
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Ax-11 Ol igs $-32 V4.0-742 Page 50. 
DEBUG. SRCIRSTTYPES.832;1 (20) 
DBGSPLIT,NOWRT, SHR, PIC,0 


<21>\RSTTYPES\<92>\VARIANT_COMP\ 


DBGSCODE,NOWRT, SHR, PIC,0 
DBGSSTA, TYP_VARIANT_COMP, Save R2,R3,R4,R5,<; 
ime VALSPEC, RB 
List Ip gr eR 
1st BT Ry. #157 
, AAR 
4706 
LIBSS1GNAL 
al @NCOMPS 
(DST *pER) @NTAGS 
(DST"PTR). @SIZE 
COMPS 
(R3), @COMPVECPTR 
a OMPVECPTR 
#3, @NTAGS, -(SP) 
“i. bpescet TEMPMEM 
RO, TAG_LIS 
gR2), TAG_PTR 
Bs VALUE _SPEC 


#2 R 
(R6SCTAG LIST 
TAG PTRS, ST 2p). 


LNGT 
Piatt Spee)” #253 
(VALUE. s SPEC), VAL_LNGTH 


NGTH 
1CVAL ATRGTH)CTAG. PTR), RO 


0 


o 
oo 


vw © 
nN & 
Ours WHO 


3 
4A 
0 
E 
er 

x om 
ok & 
sf 01 03 

7 
5 i 
3 0 
hie P| 
; Routine Size: 214 bytes, Routine Base: DBGSCODE + 


K 12 
16-Sep-1984 02:58: AX-11 Bliss-32 V4.0-742 
13-808- 1382 96:78:99 PeBG. ene sastTyeEs Bsoet 
9A CMPB TAG_PTR), #2 
if 90 BNEQ rs . 
D oF MOVL RO, VALUE_SPEC 
bb A PUSHL SP 
F PUSHAB VAL_VECT 
DD A SHL VALOE SPEC 
fe a9 CALLS 43 BRGSSTA VAL SPEC 
OF AC PUSHAB 8(R6)CTAG_LIST 
9 MOVL VAL_VECT, a(SP)+ 
B B4 MOVL #5,” VAL_LNGTH 
1 00087 CMPB = (VALUE_SPEC), #253 
\2 BB BNEQ b 
BD MOVZWL (VALUE. SPEC), VAL_LNGTH 
C C1 ADDL2 #3, VAL-LNGTH 
£4 ce 6$ ADDL AL_LNGTH, TAG_PTR 
D C9 7$ MOVL RO, TAG_PTR 
F CC 8$ AOBLSS a@NTAGS, "I, 4$ 
p 01 MOVL  TAG_LIST, @TAGVECPTR 
4 00005 RET 


12 
msTyPEs 1B-Se-1984 02:58:00 Yayett BL igsc¥2 40-742, Page 82 
GLOBAL ROUTINE DBGSTRANS_TYPE_CODE(CODE) = 
FUNCTION 


This routine takes a DST type code and translates it to the 
corresponding RST type code. 


wnaobe 


CODE - The OST type code to be transiated. 


OUTPUTS 
The corresponding RST type code is returned as the routine'’s value. 


1 
1! 
1! 
1! 
1! 
1! 
1! INPUTS 
1! 
1! 
1! 
1! 
1! 
1 
BEGIN 
CASE. - CODE FROM DSTSK_TS_DTYPE_LOWEST TO DSTSK_TS_DTYPE_HIGHEST OF | 
CDSTSK_TS_ATOM): 
RETURN RSTSK_TYPE_ATOMIC; | 
CDSTSK_TS_ DSC): | 
RETURN RSTSK_TYPE_DESCR; | 
CDOSTSK_TS_TPTR): 
RETURR RSTSK_TYPE_SELF_REL_LAB; | 
CDSTSK_TS_RFA): 
RETURN RSTSK_TYPE_RFA; 
CDSTSK_TS_AREA): 


> 


NOME WN 3 O OONO VE WUN “OVOONOUS 
MEAN OO OONAUS UI 


ahhh deeded ech edb echch rebels “chub ech edd veces “sh edu dite “eich “adda lich “as “adh clu dite “has * Au] 


RETURN RSTSK_TYPE_TPTR; 
CDSTSK_TS PTR): | 


RETURN RSTSK_TYPE_PTR; | 


CONOA NEW O OONOUS WO 0O@ 


5 

3 5 

3 5 COSTSK_TS PIC): | 
39 3 RETURN RSTSK_TYPE_PICT; 

41 2 CDSTSK_TS ARRAY): | 
4g : RETURN RSTSK_TYPE_ARRAY; 

544 5 COSTSK TS SET): 

4 3 RETURN RSTSK_TYPE_SET; 


COSTSK_T1S_SUBRANGE): 
RETURN RSTSK_TYPE_SUBRNG; 


C(DSTS$K_TS_FILE): | 
RETURN RSTSK_TYPE_FILE; 


COSTSK_TS SELF REL LABEL): 


ae 


WSSSoNsee eo eReS 


RETURN RSTS$K_TYPE_AREA; 


COSTSK_TS_OFFSET): 
RETURR ASTSK_TYPE_OFFSET; 


=—OO@wO wn Fw S OO~ouw' 


ee ec me ee ek ee a a ad ds = SS 2 i = 4 
i _  ) 


me a a a a a 8 et a a  — —  — — — ~  ' — 4 bd 2 a 2 2 4 


GPHOAOOOS 


~ 


nsrTyres iScBeo-1984 02:58:00 yaneay a4 


i 


3 1565 167 CDSTSK_TS_TASK): 
; ! ? ! : RETURA AST ak. TYPE_TASK; 
> 14 1 CLINRANGE , OUTRANGE): 
31 : i ; RETURN 0; 
: 1 16 
; i d 4 TES; 
: 1 1 END; 
0000 0 .ENTRY DBGSTRANS_TYPE_CODE, Save nothing 
1 04 aC CF CASEL CODE 1, #17 
00 f 0024 00 8 a8 0 07 1$: WORD $s-1$.- 
0053 024 O43 0017 $-1$.- 
0048 0024 024 005 OO1F $-1$.- 
058 004F 0027 $-15.- 
g$-18.- 
$-1$.- 
10$-1$,- 
$-1$,- 
1$-1$,- 
14$-1$.- 
15$-1$.- 
sip: 
g-18.- 
13$-1$.- 
168-18 
50 yi B 2$ CLRL R 
D RET 
50 02 00 F 3$ ROVE #2, RO 
50 05 00 4$ ROVE #3, RO 
50 06 0 5$ MOVL #6, RO 
v4 RET 
50 10 3 A 68 ROVE #16, RO 
50 05 00 7$: ROVE #5, RO 
50 01 09 8% ROVE #i, RO 
50 08 B0 9% ROVE #8, RO 
50 09 26 A 108 ROVE #9, RO 
50 OF 20 OGE 118: MOVL #15, RO 
50 15 00 00052 128: MOV. #21, RO 
4 4! RET 


50 14 D0 


ae 
us 
ad 
3 
bas 
Cc 


ne 
ver 


— 


vb? IERSHORe AGSHEOY ESD AUUSTR ONSEN, = aH 
: 148: Rov. #17, RO : | 


9 
50 11 06 A 
50 12 0 i 15$: move #18, RO 
50 16 0 062 168: MOVL #22, RO : 
4 0006 RET 3 1686. 


; Routine Size: 102 bytes, Routine Base: DBGSCODE + OB8EC 


Flac Ree en 


f 


13 - Page 5 
-Sep- 258: AX-11 Bliss-32 V4,0-742 ag | 
TaLobs ICROSHOUs :KH:90 RGU esas anhalt of 
; 1575 1687 1 GLOBAL ROUTINE DBGSTYPEID_FOR_ARRAY(TYPEID, ADDRESS) = 
: 157 16 § 1! 
; Hi ies E Dmecta + from OBGPARSER in the process of parsing 
; i 8 1891 i a" expression of the form PIRGn], where tnd cere: - P 
: i and pointe ° 
: 13 : 1898 : i Kp yo semaet tak aetneee typeid to an equivalent array 
Z % 11 typeid. 
: } Hf 1898 ii 
; 1868 fen8 3 | input - cribing a pointer data type 
: 128? 1837 i ADDRESS - the salen a0 tie aotanel (which will be the base 
: 1388 1699 1 i address of the array). 
: 1589 1793 | sabe new typeid is constructed out of temporary memory, and 
: 139 1508 1! a pointer to this typeid is returned. 
1538 1705 | vcore | *RPTR; > 
+ 183¢ i : inter to a floating number, 
: 1232 1508 i Liew 17 _ ontgg tyh ty EID tor RPTR, this routine returns 
: 1399 1709 1/ a typeid for an array of floating numbers (e.g., as if we 
: 1898 1710 1: had declared an object 
: 1599 1711 1: REAL RARRAYLn); 
> 1600 718 1 
1603 ae ha TYPEID f the Type Pointer 
: : ' Y or 
: 1803 1715 TYPEID: REF RSTSENTRY; The input IPE 
; 1604 
> 1605 1717 3 
1608 rig ote ! Pointer into array descriptor 
: 1607 139 $ Ane DSTETR: i Pointer to DST record for argument 
; 1809 175 $ rr WS Lth REF RSTSENTRY.” Pointer to RST record for pointed-to 
; 181% 1738 gitsize i Bitsize of Sotntep=te ebseet 
zt : ' Pointer to array 
: 1818 135 BOUNDVEC: REF VECT Rete, pormeer - rs coger ipter 
; 1818 1726 PPAGS P re pray vec nc, ' “tle $ ag withing array type spec 
- 3 ' Pointer to new 
: i6is 1758 fide DST Stipe SPEC ! Pointer to type spec within et esoors 
: ei 1383 13 i: é ' Pointer to type spec within DST reco 
: iF ray pets SPEC: ithin DST record 
; 1815 1339 TSPTR2: REF DSTSTYPE- SPEC, ' Pointer to =yee spec w hg coe 
; 1890 1 ; VSPTR: REF DSTSVAL_SPEC; ! Pointer to val spec within DST rec 
> 1621 17 
: 18 | Hi $ ! Obtain a TYPEID and a DSTPTR for the pointed-to object. 
i 1696 7 ; PEDPTR (.TYPEID, ARG_TYPEID); 
> 1625 17 DBGSSTA_TYP_TY PPR (-TYPEID. ARG TYPE 
: 18 $ 3 § Mee SE TPTR ec ARG TREE IDCRETSL aSTETR: 
; i? 179 h to hold the newly created 
: 18 : 1pe3 oh eeeg "the dunay Dst record. that %e will point to, and the 
: 18 ? 1708 i array descriptor for this dummy array we are creating. 


<z 
on 


13 
RSTTYPES 1hese -1984 :58: AxX-11 Bliss-32 V4.0-742 Pa 6 
you 12-808-138e 95: 7§ 399 DEBUG. SRCIRSTTYPES. B32: 1 9° 338 
7 

RSTPTR = DBGSGET_MEMORY (RSTSK_TYPENTSIZ + 14); 

DSTPTR = .RSTPTR™+ 4*RST$K_TYPENTSIZ; 

} Fill in some of the fields of the RST record. 

er DSTPTR] = ,DSTPT 


Wruwrn 


R: 
RSTPTR RSTSL-UPSCOPEPTRI = ,RSTSSTART_ADDR; 
RSTPTRERSTSB_KIND] = RSTSK TYPE: 
RSTPTRCRSTSB_FCODE) = RSTSR_TYPE_ARRAY; 


! Put the RST record on the temporary RST List. This will ensure that 
the space gets released when there are no more references to it. 


RSTPTRCRSTSL_HASH_FLINK] = .RSTSTEMP_LIST; 
RSTSTEMP_LIST = .RSTPTR; 


} Fill in the header of the dummy DST record. 


DSTPTRIDSTSB_LENGTH] = 23; 
DSTPTRIDSTSB_TYPE] = DST$K_TYPSPEC; 
DSTPTRLDST$B_TYPSPEC_NAME] = 0; 


! FILL in the Type Spec record within the dummy DST record. | 
This describes the array as a whole. 


TSPTR = .DSTPTR + 3; 
TSPTRCDST$W_TS_LENGTH] = 
PTRIDST$B-TS KIND) = 0 


19; 
TS$K_TS_ARRAY; 
+ . 


S_ARRAY_FLAGS_ADDRI; 


PEST AAA AAAS SSS SSS 55 SA 


WN “OO BNOVUESWN “OC VDONOULS WN "O0O@ 
CONAMAS WN OOD NAUE WN 0 ODN EW OOONOUSE 


! FILL im the Val Spec record within the dummy DST record. 
!' This points to the array descriptor that we will construct 
below this dummy DST record. 


VSPTR = .FLAGS_PTR + 1; 
VSPTR(DS.$B_VS_VFLAGS] = DSTSK_VFLAGS_DSC; 
VSPTREDSTSL_VS_DSC_OFFS) = 11; 


! FILL in the celltype type spec record within the dummy DST record. 
! This describes the type of each element of the array. This type 

!' should be ihe same as the type of the pointed-to object, so 
ndi ra 
' 


33333; 
Fun —-O0Onou' 


fe] 
NO 


' we use an rect type specification, and point to the DST 
! we obtained from the argument. 


POAAAOACAOAOO 
SAN NNN 
COnNOuw 


IND; 
ST_DST_PTR( .ARG_DSTPTR - .DSTSBEGIN_ADDR ); 


' FILL in the tye specification for the type of the subscript. 
} This type wil Just be longword integer. 


TSPTR2 = .TSPTR1 + .TSPTRICDSTS$W_TS_LENGTH) + 2; 


Be Oe Oc Oe Os Oe Oe Be Oe Oe Be Oe Oe Be Oe BH Oe Oe Oe OH Os Oe Os SHS Os Oe Oe Oe Os Os Os Oe Oe Oe Os Oe Os Os OF Os Os Oe Oe Os OE Os Os Se Oe OE Ss See estes 

ee ee ee ee ee ee ee eee 
ee ee ee ee ee eee 
OQ 


Be Oe Se Se Oe Be Be Se Se Se Se Se Se Fe Ge Ge Se SH Fe Se Se Se Se Se Ge Fe Se Ge Se Be Se ae FH Se Se Se Se Se Se Se FF Se See SH Se Se Se Seas te oe Fe Se ee Se ae 


SSSLEREANLES 


SESSEEREE 
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RsT types bate 3:78:99 — YoEBuG. SacSastivees. ase: Pee (23) 
LOBAL ROUTINE DBGSTYPEID_FOR_ATOMIC(TYPECODE, BITSIZE, DSC_FLAG) = 


FUNCTION 
This routine returns the Type ID associated with a specified VAX stand- 
ard type code (a ‘‘one-byte type code’’). The Type ID is a pointer to an 
RST entry for the data type This RST entry is added to the Temporary 
RST Entry List so that it disa 


MFO OONOUS 


| 
: 1713 1 16 
3; 1716 1 1! 
fhe 1857 1 i | 
+1 $ 1 1/ 
2 ee | 
3 : ars as soon as there are po onger an 
; if » : : : references to it. wars : ~ 
: 17 § 1 1 i The routine builds a Data Type RST Entry, and a Type Seect fication DST 
; 17 1 1} peters. both in the same memory Moy The RST entry's FCODE is set to 
3 17246 1 8. ye 8 tonic and its DST poinger poin ts o the DST record. hs DST recore 3 
3; 1725 1 1! s built to contain o DST Type Specification for the specif ed atomic 
3; 17 $ 1 1! data type. 
3 17 1 3 1! 
; 178 1 1 ! INPUTS 
3 17 1840 1! TYPECODE = The VAX standard type code ("‘one-byte’’ type code) whose Type 
: i : ; 1 : : ID is to be returned. 
; 7 ¢ 5 BITSIZE - The size in bits of an item of this type. 
: 17 184s 1 DSC_FLAG - A Ba which, when set, indicates that we are erocecstes a 
3; 1735 1 ré 1! descriptor item; thus, we will signal INVALID ARRAY DES 
3 A 1848 ; H in certain error situations. 
: 1738 1849 1 ' OUTPUTS 
3; 1739 1850 1! The corresponding Type ID (Type RST Entry pointer) is returned as the 
: 1760 1851 1! routine value. 
She 1888 1 
i is fe 
: 1745 1836 LOCAL 
3 ire 185 DSTPTR: REF BSTSRE CORD. ! Pointer to the enereeee DST record 
3: 174 1858 RSTPTR: REF RSTSENT ' Pointer to the ype RST Entry 
: 1748 1859 TSPTR: REF DSTSTYPE R SPEC; ! Pointer to Type Spec in DST Fecord 
3: 1749 1369 
: Fy 1862 
: 173¢ 1868 ‘ : Make sure the VAX standard type code is in the valid range. 
: 1754 1865 ir ((, vee Coes LSS DSCSK_DTYPE_LOWEST) OR 
3; 1755 1866 (. TYPECODE GTR DSCSK~DTYPE HIGHEST)) AND 
$ 1736 1 (.TYPECODE NEQ DST$K_BOOL) AND 
3 17 1868 ({ TYPECODE NEQ DSCSK~ “DTYPE_TF) 
; 1758 1869 THEN 
3; 1759 1870 BEGIN 
3: 1760 1871 IF .DSC_FLAG 
3; 1761 1 % 
: 1786 187 SIGNAL (DBG$_INVARRDSC) 
3: 176 1874 
3: 1764 1875 ELSE 
; 1702 ' 6 SDBG_ERROR(*RSTTYPES\TYPEID_FOR_ATOMIC"’); 
16 187 si 
: 1769 1880 
| 
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-PSECT DBGSCODE.NOWRT, SHR, PIC,0 


3 1 Tp 1881 ! Get a memory block large enough to contain both the RST entry and the 
3 : i } § : dummy DST record. 
; 1378 1 RSTPTR = DBGSGET_MEMORY(RSTSK_TYPENTSIZ * 2); 
: irr } 5 DSTPTR = .RSTPTR™* 4*RSTSK_TYPENTSIZ; 
H 1776 1 
3 ire : Build the Data Type RST Entry for the atomic type. | 
; 1779 1890 RSTPTRERSTSL_DSTPTR] = .DSTPTR:; | 
: 17 1891 RSTPTRERSTSL_UPSCOPEPTR] = .RSTSSTART_ADDR; | 
: 1781 1 % RSTPTRERSTSB_KIND) = RSTSK_TYPE: 
: 17 2 189 RSTPTRURSTSB_FCODE) = RST$R_TYPE_ATOMIC; 
: 17 1894 RSTPTRCRSTSL_BITSIZE) = .BITSIZE: : 
: ites 1898 | 
: 17 1899 ! Put this Data Type RST Entry on the Temporary RST Entry List. This will 
3: 1787 1898 ! cause the entry to be released at the end of a DEBUG command when there | ‘ 
3 17e8 13% are no references to it (when it is not locked). i 
: 1790 1901 RSTPTRCRSTSL_HASH_FLINK] = .RSTSTEMP_LIST; | 
: 1733 190¢ RSTSTEMP_LIST = .RSTPTR; 
: 179 1904 | 
3 17 Hb Build the dummy Type Specification DST entry for the atomic type. i 
:1 1909 DSTPTRCDSTSB_LENGTH) = 6; 
: 179 1908 DSTPTREDSTSB_TYPE) = DST$K_TYPSPEC; : 
: 1798 1909 DSTPTRLDSTS$B TYPSPEC_NAME J = 0; : 
: 1799 1910 TSPTR = .DSTPTR : | : 
: 1800 1911 TSPTRCDSTS$W_TS_LENGTH) = 2; : 
; 1801 1912 TSPTREDST$B_TS_KIND] = DSTSK_TS_ATOM; | : 
: 1 3 191 TSPTRCDST$B_TS_ATOM_TYP) = .TYPECODE; : 
i] 1918 | 
: : 5 ay } Return the type's Type ID (Data Type RST Entry address) to the caller. | 
21 1918 RETURN .RSTPTR; F 
: 1808 1919 : 
: 1809 1920 END; | ; 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,0 

49 45 50 59 54 SC 53 45 50 59 54 54 53 52 1A 00169 P.AAS: .ASCII <26>\RSTTYPES\<92>\TYPEID_FOR_ATOMIC\ : : 
43 49 40 GF 54 41 St 52 GF 46 SF 44 00178 : 

“ ; doje 203 gEnrar DBGSTYPE1D_FOR_ATOMIC, Save R2,R3,R4 : 1824 } 

33 000000096 88 MOVAB RSTSTEMP Uist. R3 : 

4 at p 919 MOVL TYPECODES R ; 1865 

0 14 BLEG =:*1$ ; 


; Routine Size: 136 bytes, Routine Base: DBGSCODE + 0A24 
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18-50 -1984 02:58: Ax-11 BLi 
1 ~300n 138% 95:78:99 DEBUG. SRC 
GLOBAL ROUTINE DBGSTYPEID_FOR_SET(ARG1, FCODE, BITSIZE) = 


i FUNCTION 
! This routine builds a Data Type RST Entry for a set data sxpe- 


=32 V4.0-7% 
Sasifvbes asec 


This routine is normally called when a Type ID (i.e., an R 

pointer to a Type RST Entry) must be produced for a set gonetens 

data Fyee- The RST entry is added to the jenperery RST Entry List so 
that 3 soseeene back to the memory pool once there are no longer 
any references to it. 


The routine builds a Data Type RST Gary and ad 
ame memory block. The DST record 


5 aD ed ad a tLe 


usay DST record in the 
$s s a Type specif cation DST record 
with the null name and an Set Type Specification. Parent Type 
Specification in the Set Type soec ty cation con be either an atomic 
type or an Indirect Type Specification pointing to the DST Type 
Specification given as the input parameter. 
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i 

i 

i 

i 

i 
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i 

i 

i 

i 

i 

i 

! INPUTS 
: ARG1 - DTYPE or DSTADOR 
: Dtype is vax standard data t 
i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 
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MEAN OOONOUS wt 


e. 
Dstaddr is the address of the pst Parent Type Specification 
for which a Set Type ID is to be generated. 


WN O CONAN WH" OOONOUS wn 


wees 


FCODE = The type Format Code associated with the Type Specification. 
BITSIZE = The size in bits of an item of this type. 
Optional 4th argument - If presents, that means the ist argument is 


assed in as Dtype. An Atomic parent type 
Specification wilt be generated. . 


02 Gp 0D Co C9 09 09 C9 CD CD CD CD CD 
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OUTPUTS 
The data type’s Type ID (i.e., a pointer to the Type RST Entry) is 
5 


returned as the routine's value. 


BEGIN 


BUILTIN 
ACTUAL COUNT ; 


LOCAL 
DSTADDR 
DTYPE: BYTE, Data type 
DSTPTR: REF DSTSRECORD ' Pointer to generated DST record 
PARENT_TSPTR: REF DSTSTYPE_SPEC, | Pointer to arent Type Spec in Set 

4 recor 
RSTPTR: REF RSTSENTRY ' Pointer to generated Type RST Entry 
TSPTR: REF DSTSTYPE_SPEC; i Pointer to Type Spec in DST record 
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Parent type DST pointer 
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! Depending on whether we have a fourth argument to this routine or not, 
! the first argument is either a DTYPE or a DSTADDR. Pick up the Data 
Type or the Parent type DST pointer accordingly. 


IF ACTUALCOUNT() GTR 3 THEN DTYPE = .ARG1 ELSE DSTADDR = .ARGI; 
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! Get 2 seners block Large enough to accommodate both the RST entry and 
i the dummy DST record. 


RSTPTR = DBGSGET MEMORY (RSTSK_TYPE 
DSTPTR = .RSTPTR’* 4®RSTSK_TYPENTS 


: Build the Data Type RST Entry for the input type. 


RSTPTR RSTSL_DSTPTRI | .. DSTPIR 
RSTPTRERSTSL_UP sastsstart _ADOR; 

$8-KI " Pret TYP 

$B-FC = .FCOBE; 

$L“BITSIZE) = COPE 
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wo 


zw 
(7 
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vv 
~ Pe 
zm» 
PP] 
nn 
44st 


RSTPTRCRS 


! Put this Data Type RST Entry on the ps eeperety RST Entry List. This will 
i cause the entry to be released at the end of a DEBUG command when there 
are no references to it (when it is not leshod e 


RSTPTRCRSTSL_HASH Ath. = .RSTSTEMP_LIST; 


a a te a et a a ds Lt st 
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SESSSEER® 
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: 18 

3 1891 RSTSTEMP_LIST = .RSTPT 

: 1898 

3 a H Build the dummy DST record for the type. 

3 896 bSTPTR DSTSB_LENGTH] = 4 ; 

3 189 DSTPTREDSTSB_TYPE] = DSTSK_TYPSPEC: 

> 1898 008 DSTPTREDSTSB— TYPSPEC NAME J = 0; 

; 1899 009 TSPTR = .DSTPTR + 3; 

3 1900 010 TSPTRCDST$W_TS_LENGTH) = 5; 

3 1901 011 TSPTREDSTSB_TS_KINDJ = pst bx TS_SET; 

; 4 Og TSPTRCDSTSL_TS_SET_ LENG) = .B1TSIZE; 

; 190 01 PARENT TSPTR =~. TSPTR + 7; 

3 1906 014 IF ACTOALCOUNT() GTR 3 

3 1905 015 THE 

3 906 016 BEGIN 

3 190 01 TSPTRCDST$W_TS_LENGTH) = -TSPTREDSTSW_ TS_LENGTH] + DSTSK_TS_ATOM_LENG; 
; 1908 018 PARENT_TSPTRCDSTS$W_TS_LENGTH) = 

3 1909 01 PARENT-TSPTRIDST$B_TS_KINDJ = pstix rs. 1S ATOR: 

: 1910 020 PARENT_TSPTRLDST$B_1S_ATOM_TYP 

> 1911 9 1 END 

3 a § 

7 ee 

+ 1915 025 TSPTREDSTSu TS LENGTH) = .1S I let TS_LENGTH] + DSTSK_TS_IND_LENG; 
: 916 9 6 PARENT_TSPTRCDST$W_TS_LENGTH) = 

3 191 PARENT-TSPTREDST$B_TS_KIND] = DSTSK 

; 918 9 § PARENT TSPTREDSTS$L_TS-IND_PTR) = S OBCSRST "Det _PTR( .DSTADDR = .DSTSBEGIN_ADDR ); 
: 1920 

3 ; DSTPTRCDST$B_LENGTH] = .DSTPTRCDSTSB_LENGTH) + .TSPTRCDST$W_TS_LENGTH); 
: 19 

3; 1926 ' Return the RST pointer to the caller. 
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Page 64 
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01FC 00000 -ENTRY DBGSTYPEID_FOR_SET, Save R2,R3,R4,R5,R6,R7,°; 1921. 
58 000000006 00 MOVAB RSTSTEMP_LIST, R8 : | 
it a ee ‘sm 
6 18 990¢ BLEQU : 
56 04 ac 9 90 0000 move ARG1, DTYPE : 
57 os RE BO RRCIE 18: ova. sae. Bstanen : | 
10 OD 00018 2$: PUSHL @# ; 1983) 
LL Y $ 
000000006 0 i F O01 CALLS a. a MEMOR | 
55 2c AG aE 09 4 MOVAB 44(R4), PIR. + 1984 
Oc AG 55 DO 00028 MOVL DSTPTR, ° (RSTP + 1989 
10 A 000000006 90 D 99 C MOVL RSTSSTART ADDR, TTB CRSTPTR) : 1990 
14 AG 90 000 MOVE #7, 20(RSTPTR) + 1991 
18 AG 08 aC 90 000 MOVB FCODE BR cRSTPTR) : 1998 
20 AG 0c ac 00 00 MOVL  BITSIZE, 32(RSTPTR) : 199 
64 DO 0004 MOVL RSTSTEMP_LIST, (RSTPTR) + 2000 
68 4 DO 0004 MOVL  RSTPTR, RSTSTEMP_LIST : 2001 
65 AFOS «6 BF_-sCé&BOD 90048 MOVW #44804. (DSTPTR) + 2006 
02 AS 94 0004D CLRB ¢(stPtR) : 2008 
53 03 aS 9€ 00050 MOVAB 3(R5), TSPTR + 2009 
é 05 zg 0054 MOVW #5, (TSPTR) + 2010 
02 A 08 0057 MOVB #8, 2(TSPTR) : 2011 
A Oc AC D 8 MOVL gi fsize 3(TSPTR) ; Og 
5 07 ~OA 4 MOVAB 7(R3), PARENT_TSPTR : 201 
0 6¢ 9 64 CMPB sé AP),, #3 : 2014 
1 0 67 BLEQU 3$ ; 
63 ie A 69 ADDW2 #4, (TSPTR) : 2017 
3 2 8 006C MOVW ae, (PARENT Seth, : 2018 
02 A 1 0 of MOVB so], 2 (PARENT 3 2019 
03 A 6 90 000 ; MOVB ODTYPE, 3(P ARENT. PTSPTR) : 2020 
1 11 0007 BRB 4s 3 2014 
63 A 79 3$: ADDW2 #7, (TSPTR) : 2025 
6 ; 7¢ MOV a3. (PARENT_TSPTR) : 9 $ 
02 A 7F MOVB. #3. 2(PARENT_TSPTR) : 
7E serntlttie: 3 000000006 6 ¢ 6 3 SUBL 3 DST SBEG NADA, DSTADDR, -(SP) : 2028 
8 Ae 9 p MOVE. RO. ist Put TS PTR R) : 
$ : 4$: ADDB2 CTePTRD NS STPT 3 2031 
0 4 B0 MOVL  RSTPTR, RO > 2036 | 
9C RET é 0 | 
3; Routine Size: 157 bytes, Routine Base: DBGSCODE + OAAC | 


RSTTYPES 1b-5¢ -1984 758: AX-11 Bliss-32 v4.0-742 Pa 5 
yO0 008 =3007 138 95:78:90 Preue enciasT types Boo. ae 28 
: 19 Q 39 1 GLOBAL ROUTINE DBGSTYPEID FOR TPTR(TYPEID) = | 
: 19 ; 1 | FUNCTION 
3; 19 7: Given a YvPEte Sever ibing an arbitrary data type, this routine 
: 19 73 constructs a TY yar tne’ete Pointer data type, where the 
3 13 5 2 : } typed pointer points x the given data type. 
: 19 r4 1! This is needed for the & operator in C. For example, if X is data 
3 19 1! of type T, then &X returns the address of X, and the type of 6x is 
: 1939 a 1 point or to date ef t ype 1. This ro ti ne is then used to transform 
3 oe ; : TYPEID for X lace’ the TYPEID for 8X. 
; 1948 I 1 | INPUTS 
3: 194 O36 . TYPEID = A TYPEID for the object to which the & operator is being 
Be BET peer 
; 1946 055 1 | ouTPuTS 
3 194 826 1! Return Value: A TYPEID is returned, as described above. 
we Bey! 
: 1950 $39 BEGIN 
¢ 1983 O61 map | 
: 1988 O88 TYPEID: REF RSTSENTRY; ! The input TYPEID for the Type Pointer 
3: 1954 06 : data type 
Me BEE voc 
3 1957 B86 ARG. Pereres REF DST si RECORD ! Pointer to DST record for argument 
> 1958 06 ARG TSPTR: REF F pstsi $TY PE _SPEC, / Pointer to Type Spec for argument | 
: 1959 068 OS TPTR. REF D ' Pointer to duany ST record 
: 1960 069 RSTPTR: REF RST SEN FRY ' Pointer to new RST reco 
: 1961 970 TSPTR: REF DSTSTYPE me i Pointer to type spec cothin DST record 
i 1968 are 
: s+ Oe : Obtain the DST pointer and Type Spec puinter for the argument. 
: 1967 076 Ars -DSTPTR = . TYPEIDCRSTSL_DSTPTRI 
: 1968 07 ARG_ TSPTR ARG_DSTPTR DSTSA_ TYPSPEC TS ee + 
3 139? 4 -ARG_ DSTPTR DST$B_ TYPSPEC ~NARE 
: 19h Ob | 
: 197@ BBs ' Allocate a menory block large enough to hold both the newly created 
3 Hb 44, 8 § : RST reaaed and the dummy DST record that it will point to. 
: 1975 0 RSTPTR = DBGSGET MEMORY (RSTSK TYPENTSIZ + 4); 
; 1378 085 DSTPTR = .RSTPTR™+ 4*RSTSK_ TYPENTSIZ; 
: 13) 9 
: 1978 ! Fill in some of the fields of the RST record. 
3 1981 astere RST L_DSTPTRI . DSTPIR 
7 19 1 RSTPTRERST L-UPSCOPEPIR nstssrant _ADOR; 
3 19 é RSTPTR Rerss 0p = Rsis 
: 19 RSTPTRERSTS$SB_FCODE) = aati vPe_1 TPTR; 
> 1985 RSTPTRERSTSL_BITSIZE) = 32; 
3; 19 5 
| 


es mt et Re ae ee eee one» og ore ee 
"1 


vO4~000° 1S3e0-198e 09:58:09 DEBUG. SRCIAST TYPES BS3—1 Page 85 
t the RST record on the temporary RST List. This will ensure that 


e@ space gets released when there are no more references to it. 


TRCRSTSL HASH INK] = .RSTSTEMP_LIST; 
TEMP_LIST = .RSTPTR; 


3333 


eu sc 


FILL in the dummy DST record. 


' 
i 
DSTPTR ps Tse. LENGTH] = 

DSTPTRLDSTSB “Type) = Ds! i _'YPSPEC; 
DSTPTRLDSTSB_TYPSPEC_NAMEJ~= 0; 


ee et sd ed ed dt I sd 


SSeSSFSReS Se Sabo Sees 
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: 1 

: 1 

; 1 

: 1 

: 1 

; 1 

; 1 

: 1 

; 1 

; 130 

: iW FILL in the Type Spec record within the dummy DST record. 
: 118 TSPTR = .DSTPTR + 3; 

: 114 TSPTR pst Su. 1s LENGTH J = 8; 

3 115 TSPTR Seki IND] = DOST$K_TS_TPTR 

: 116 TSPTR ; Steere BSTSA. TS_TPTR_TSPEC “ADBRI; 

; 118 

3; 2010 119 ' este * the Type Spec for the pointed-to object. 

; 2011 120 : Atomic types are filled in in-line, other types use the 
3 Oig : 1 Atomic typ Type Spec to point back to to argument DST. 

: 2014 1 4 if .ARG_TSPTRCDST$B_TS_KIND] EQL DSTSK_TS_ATOM 

; oie i “ THEN GIN 

; O19 126 TSPTR DST$W_TS_LENGTH] = 2; 

3 2018 1 TSPTRCDST$B_TS_KINDJ = pstéx 1s 

: 2019 1 8 TSPTREDST$B_1S_ATOM_ = KRG" TSPTRCDSTSB_ TS_ATOM_TYP); 
3; 2020 1 ND 

: $053 134 ELSE 

3 20 § 1 g BEGIN 

+ 2024 1 TSPTR(DST$W_TS_LENGTH) = 5: 

3 2025 1 TSPTREDST$B_TS_KIND) = DST$K_TS_IND; 

: 20 g 1 5 TSPTRCDSTSL-TS—IND_PTRI = DBGSRST_DST_PTR( .ARG_DSTPTR = .DSTSBEGIN_ADDR ); 
z 3098 138 3 

: : 1%} : Return the pointer to the RST record. 

: 4 141 RETURN .RSTPTR; 

: 14g 

: 14 


007¢ ENTRY DBGSTYPEID_FOR_TPTR, Save R2.R3,R4,R5.R6 ; 2039 

$ 000000906 00 9 HOVAB = RSTSTEMP LIST, Rb ; 
4 At 0 MOVL —TYPEID, & : 2076 

r ¢ AO OD MOVL  12(RO); ARG_DSTPTR : 


N13 | 
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3 Routine Size: 140 bytes, Routine Base: DBGSCODE + 0849 


Ad 9A 0001 MOVZBL 2(ARG_DSTPTR), R : 2078) 

3 88 “i $e 13 MOVAB SROSEARG. DStb TRS, ARG_TSPTR ; 3077 

000000006 1 FB I CALL a. be $GET_MEMORY 3 | 
6 MOVAB eta » OS PT + 2085 

of A D A MOVL DSTPTR, 12(RSTPT : 

10 A eos a mov BP SocRaTATRD VOCRSTPTR) : 5 

18 4 : A MOVB #6, 4(RSTPTR) ; 098 

20 A D MOVL #32, 32(RSTPTR) : 2094. 

6 § D és MOVL RSTS$TEMP List (RSTPTR) : 100 

6 D 4 MOVL  RSTPTR, ASTSTEMP_LIST > 2101. 

< "Ne A 5 ry One ocpetotaye 108 

5 np 0 see 8cRh. Tepre : 3113) 

8 0 8) 30 MOVW #8, (TSPTR)+ > 2114) 

4 7 MOVB #4. (TSPTR)+ : 113 | 

0 02 AS 91 3A cMPB @(ARG_TSPTR », wi ; 2123) 

b 05 @0 006 MOVW a2 (TSPTR) : 21 | 

02 A 0 MOVB = #1... 2¢ TSPTR) : 2127. 

-0O3 A 03 «AS (90 906 MOVB 3(ARG_ TSPTR), 3(TSPTR) + 2128 | 

63 Ae bo bocce 18: pavw $8. CTSPTAD : $1¢3| 

02 83 59 007) : MOVB a3" 2(TSPTR) > 2134 | 

7E i 000000006 00 ¢3 00075 SUBL3 DSTSBEGIN ADDR ARG_DSTPTR, ~(SP) ; 2135 
coon 1 iS Sats an bo 
33 D 00088 2$ MOVL aotpin RO : gi) 

04 00088 RET 2 2143) 


Pe Pere Pep at rn ce ae Doyen Sade eae 
Vee 12=8e871382 95:93:99 | HoadG She sastevbes aso. Pome «285 | 


ROUTINE TYPEID_FOR_COB_HACK(CH_DSTPTR) = 
FUNCTION 


This routine builds an appropriate Data Type RST Entry for the data 
type of an object described by a Cobol Hack DST Record. It accepts 


folololo} 
wae 


as input a pointer to the DST record and it builds and returns the 
address of a Data Type RST Entry for the corresponding type. The 
a 


peaere block which contains the Type RST Entry also contains a dummy 
p 


} 
040 i 
041 ! 
org ! 
04 ' 
bee } Type Spec DST Record for the data type in question. 
046 i Cobol Hack records are obsolete, but are still found in proecens com- 
047 ‘ piled with the Version 1 COBOL compiler. This routine therefore con- 
048 ! verts such DST records into more ‘'regular’’ DST structures so that on- 
Ben } ly this routine needs to understand the obsolete Cobol Hack Record. 
051 i INPUTS 
O28 } CH_DSTPTR = A pointer to the Cobol Hack DST Record whose data type is 
$027 } to be extracted. 
2055 i OUTPUTS 
2056 ! This routine returns as its value a pointer to a Data Type RST Entry 
std 4 } for the data type specified in the Cobol Hack DST Record. 
059 > 
060 BEGIN 
061 
O66 MAP 
06 CH_DSTPTR: REF DSTSRECORD; ! Pointer to Cobol Hack DST Record 
LOCAL 


Bee 
$8 
i § 
: 


' The bitsize of an atomic data type 
' Pointer to Cobol Hack record trailer 
DESCADDR: REF BLOCKCL,BYTE), ' Pointer to VAX standard descriptor 
DSTPTR: REF DSTSRECORD, i Pointer to dummy Type Spec DST Record | 

built by this routine 5 | 


' 
! 
' 
i] 
' 
RSTPTR: REF RSTSENTRY, Pointer to Type RST Entry built by 
! 
‘ 
' 
! 


S 


BITSIZ 
CH_TRLR_PTR: REF DSTSCH_TRLR, 


se 


NOUEWN OO 


; y this routine for data item 
TSPTR: REF DSTSTYPE_SPEC, ' Pointer to Type Spec in Type Spec DST 

} _ fecord built by this routine 
VSPTR: REF DSTSVAL_SPEC; ! Pointer to Value Spec in Type Spec 


DST record built by this routine 


SN NN 


Oooooooeoo 
109 C9 09 09 CD OD OD CD09 0D SI NIN NI SINS SI AAPA AAA AA MMIII EB ES ES 


ooo 


079 

080 : If the descriptor address in the DST record is zero, this is an atomic 

081 ! data type defined by the DSTSCH_TYPE field. Build a Type RST Entry for 

oes it and return that entry's address as a TYPEID. 

084 if .CH_DSTPTRCDSTSL_VALUEJ EQL 0 

Ob THEN BEGIN 

0 CH_TRLR_PTR = CH_DSTPTRCDSTSA_COBHACK_TRLR) + .CH_DSTPTRCDSTSB_NAME); 

33 BITSIZ = GET BITSIZE FROM _DTYPE(.CH_TRLR PTRCDSTSB_CH ig 3 

089 RSTPTR = DBGSTYPEID_FOR_ATOMIC(.CH_TRLR_PTRCDST$B_CH_TYPEJ, .BITSIZ, FALSE); 
330 gy eRSTPTR; 
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! We have a descriptor-specified data type. Compute the address of the 
} descriptor. 


ir CH=DSTPTRCDSTSB_VFLAGS] EQL DSTSK_VFLAGS_DSC 
DESCADDR = CH_DSTPTRCDSTSA_DSC_BASE] + .CH_DSTPTRCDSTSL_DSC_OFFS 


LSE 
SIGNAL (DBG$_INVDSTREC); 


If the descriptor is an array descriptor, we build an Array Type = Entry 
and the correspond? ng dummy Type Spec dst Record. We also return the 
address of the Type RST Entry as a TYPEID. 


| 
if (. tips perso cL Ass EQL DSCSK ~CLASS A? OR 
Stree EQL DSC$K-CL 7 NCA) OR 
CADDR DSCSK_ 

DSCS$K~ 


ee | 


rorororor 


MIMIPOPNUNYD 2 2 2 SS OOO OO OCOCO 


NO AR WN =O OD NOAUE WN OO ODNOAU EWN OOD NOU EWN HO OONANE ONO NOE UN 


RUEDSC$B_C 
DSC$B_ CLA 38 EQL 
DSC$B_ EOL 


on" “DESCADDR CLASS 


BEGIN 


' Get a — block to hold both the Type RST Entry and the Type Spec 
° 
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100 

iH 

198 

104 

105 

106 

107 

108 

109 

110 

11 

118 2 

114 

118 

117 2 
18 $$ DST Record for the array. 
120 233 RSTPTR = DBGSGET_MEMORY (RSTSK TYPENTSIZ + 4); | 
1¢) $s§ DSTPTR = .RSTPTR'+ 4*RSTSK _TYPENTSIZ; 
158 : 3 | 
igs ; : : Build the Data Type RST Entry. 
126 3 ; RSTPTR RSTSL_DSTPTR] = .DSTPTR; 
127 2 RSTPTRERSTSL_UPSCOP OPEPIRI = .RSTSSTART_ADDR; | 
128 223 RSTPTRERSTSB-KIND) = RSTSK TYPE: 
129 $33 RSTPTRERST$B_FCODE) = RASTER. TYPE_ARRAY; | 
131 3 
136 234 ! Put this Data Type RST Entry on the Temporary RST Entry List. This | 
13 4 i will cause the entry to be released at the end of a DEBUG command 

; : " when there are no references to it. 

1 4 RSTPTRCRSTSL HASH Ath = .RSTSTEMP_LIST; 

: i ; RSTSTEMP_ LIST = .RSTP 

139 4 

140 4 ! Then build the Type Specification DST Record. This contains a Type 

1) ¢ Spec containing a Value Spec which contains the descriptor address. 

108 5 DSTPTR DSTSB_LENGTH) = 518i 

144 5 phd be DST$B-TYPE] = DSTSK_TYPSPEC; 

145 5 = DSTPTREDSTSA TYPSPEC_TS_ADOR); 

146 5 TSPTR DST$W_TS_LENGIA) = 8: 

14 5 TSPTREDST$B-TS_KIND) = pst $x . 

148 5 TSPTREDST$B fs ARRAY_DIM) = LepEseADORCOScSB DIMCT); 

149 5 VSPTR = TSPTRCDSTSA_TS_ARRAY_FLAGS_ADDR) + T; 


igec3¢ v4 
CIRSTTYPE 


2 Page 70 


D 14 
vb4-005° 1e-3ep-1986 15:18:07 — Eoeaus.§ 251 (26) 


-Sep-19 DEBUG. 


VALKIND_DESC; 
Bor; 


l 
R 
VSPTR $8 VFLAGS) = 


DST$B_VS_ DSTSK 
VSPTREDSTSL-VS_VALUE] = .DESCA 


} Return the address of the Type RST Entry we built (the TYPEID). 
RETURN .RSTPTR; 
END; 


PAGAN 
MEW —OOw 


is not an array descriptor. We therefore generate a Descriptor Type 
T Entry and the corresponding dummy Type Spec DST Record. 


: it 
RS 
RSTPTR = DBGSGET_MEMORY(RSTSK_TYPENTSIZ + 3); 
DSTPTR = .RSTPTR'+ 4*RSTSK_TYPENTSIZ; 


Build the Data Type RST Entry. 


RSTPTRCRSTSL_DSTPTR] = .DSTPTR; 
RSTPTR RSTSL“UPSCOPEPTR = .RSTSSTART_ADDR; 
RSTPTRERSTSB_KIND) = RSTSK_ TYPE; 
RSTPTRCRSTSB_FCODE) = RSTSR_TYPE_DESCR; 


PN DP 8 
@ VMEWN—CO° 


! Put the Data Type RST Entry on the Temporary RST Entry List. This will 
cause the entry to be released when no longer referenced. 


RSTPTRCRSTSL_HASH_FLINK] = .RSTSTEMP_LIST; 
RSTSTEMP_LIST = .RSTPTR; 
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$ 


: Then build the Type Specification DST Record. This will contain a Type 
Spec containing a Value Spec containing the descriptor address. 


DSTPTRIDST$SB_LENGTH) = 10; | 
DSTPTRLDST$B-TYPE] = DST$K_TYPSPEC; | 
TSPTR = DSTPTREDSTSA_TYPSPEC, TS_ADOR]; 

3 . 


ENG 
; KIND] = DST$K_TS_DSC; 
VSPTR = TSPTRCDSTSA_TS_DSC_VSPEC_ADOR); 
VSPTR -VS_VFLAGSJ~= DSTS$K_VALKIND_DESC; 
VSPTRCDSTSL_VS_VALUE) = .DESCABOR; 
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Return the address of the Type RST Entry we build, i.e. the TYPEID. 
RETURN .RSTPTR; 
1 END; 
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Routine Base: DBGSCODE + 0BDS 


246 bytes, 


3; Routine Size: 


VG 
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vo4~000 UEdee-H98e QBSHEMYWAEGLL Bhnec gta, P09 oh 
ROUTINE TYPEID_FOR_DESCR(DESCADDR, FCODE) = 


' FUNCTION 

This routine returns the Tyee ID associated with a VAX standard descrip- 
tor type. The routine bui d 
and returns {t$ address as the Type ID. This RST qntry pgints to a dum- 
my Type Specification DST Record. give built by this routine, which con- | 
tains a Coacr tps r type specification which in turn contains a value | 
specification which points to phe spec ities descriptor. The RST entry 
and the DST record are both built in the same memory block. This block 
is put on the Temporary RST Entry List so that it disappears as soon as 
there no longer are any references to it. 


INPUTS 
DESCADDR = The address of the descriptor for which a Type ID is to be 
returned. 


ARRFLAG = (Optional). If this argument is TRUE, DESCADDR is assumed 
to be an ARRAY descriptor, and a VAX standard descriptor 
is built to describe an element of the array. The descrip- 
tor is also placed in the same memory block. 


OUTPUTS 
The corresponding Type ID is returned as the routine value. 


FCODE = The format code of the resultant Type ID. | 
| 
| 
| 


WAAL POPRIPOPONIPOPUNIND 2 OOO 


VIFWN OO OONOUE WN (OC OOVNOUS W000 


BEGIN | 


MAP 

DESCADDR: REF BLOCKC, BYTE); 
BUILTIN | 
ACTUAL COUNT | 
ACTUALPARAME TER; 


LOCAL 
ARRFLAG, 


DSTPTR: REF DSTSRECORD 


MMMMNINNNIAN 2 3 3 oO 
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Flag set to TRUE if the input descrip- 
tor is an array descriptor 
Pointer to the type’s DST record 
ELEMENT: REF DBGS$STG_DESC, Pointer to array element descriptor | 
in constructed DST entry 
RSTPTR: REF RSTSENTRY, Pointer to the type's RST entry 


S 
TSPTR: REF DSTSTYPE SPEC, ' Pointer to the DST Type Specification 
VSPTR: REF DSTSVAL_SPEC; ! Pointer to the DST Value Specification 


NOUS WN OOS 
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*ee How am 1 supposed to get this definition properly? 


MACRO 


' If the input descriptor is an ervey descriptor, as declared by a third 
i argument (the ARRFLAG argument), t en we set the ARRFLAG flag to TRUE. 
! Otherwise, it is not an array descriptor and ARRFLAG is set to FALSE. 
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! 

ARRFLAG = (IF ACTUALCOUNT() GTR 2 THEN ACTUALPARAMETER(3) ELSE FALSE); 

! Figure out how big the descriptor is. 


' Assume to start with. 
! Then check for array descriptors, which are bigger. 
! In some cases, there | be some slop Hb te may be bigger 
than the descriptor really is), but that is OK. 
SIZE = 12; 
IF .ARRFLAG 
HEN 
SIZE = 10 
IF (.DESCADDREDSCSB_CLASS) EQL DSCSK_CLASS_A) OR 
(.DESCADDRLDSCS$B_CLASS] EQL DSCSK_CLASS_NCA) OR 
(. DESCADDRLDSCSB_CLASS) EQL DSCSK_CLASS_UBA) 0 
(. DESCADDRLDSCS$B_CLASS) EQL DSCSK_CLASS_VSA) 
SIZE = 20 + (12 * .DESCADDORCDSCSB_DIMCNT)); 


Get a memory block to hold both the RST entry and the DST record, 
and the descriptor. Copy the descriptor into the end of this 
memory block, and reset DESCADDR to point to this copy. (The 
reason for this is so that the descriptor resides in permanent 
memory, and in fact in the same permanent memory block as the 
kypeie. This makes sure that the descriptor does not outlive 

the typeid or vice-versa. 


RSTPTR = DBGSGET_MEMORY(RSTSK_TYPENTSIZ + 3 + (.SIZE+3)/4); 
DSTPTR = .RSTPTR + 4*RSTSK_TYPENTSIZ; 

ELEMENT = .DSTPTR#12; 

CHSMOVE (SIZE, .DESCADDR, .ELEMENT); 

DESCADDR = ELEMENT; 


' For array descriptors we change the class field so it describes the 
element and not the entire array. 


if .ARRFLAG 
THEN EGIN 
ELEMENTCOSCSB_CLASS) = (IF .ELEMENTCDSCSB_DTYPE) EQL DSCS$K_DTYPE_T 
THEN DSCSK_CLASS_S ELSE DSCS$K_CLASS_SD); 
ELEMENTCOSCSA_POINTER] = 0; 


: Build the Data Type RST Entry for the descriptor type. 


RSTPTRERSTSL_DSTPTR] = .DSTPTR; 

RSTPTR peteh ue scorers = .RSTSSTART_ADOR; 
RSTPTRERSTSB_KINDJ = RSTSK_TYPE; 
RSTPTRCRSTSB_FCODE) = .FCOBE; 


' Put this Data Type RST Entry on the Temporary RST Entry List. This will 
' cause the entry to be released at the end of a DEBUG command when there 
' are no references to it (when it is not locked). 
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! 

RSTPTRCRSTSL_HASH_FLINK] = .RSTSTEMP_LIST; 

RSTSTEMP_LIST = .RSTPTR; 

! Then build the corresponding Type Specification DST Record. This contains 
a type spec which contains a value spec containing the descriptor address. 
DSTPTR DSTSB_ ENGIN) = 10; 

DSTPTRUDST$B_TYPE) = DST K_TYPSPEC; 

DSTPTRLDSTS$SB_ TYPSP C_NAME] = 0; 

TSPTR = DsTPTRCDST ay vespec.t TS_ADDRI; 

reoreeest W_TS_LENGTA) = 6; 

TSPTRCDSTSB 1s KIND] = DST$K_TS_DSC; 

VSPTR = TSPTRLDSTSA SATS. dst vSPEC_ADORI; 

VSPTRCDST$B_VS_VFLAGS) = 

VSPTRLDST$V_VS_VALKIND) = 5ST$K_VALKIND DESC; 

VSPTRCDSTSL_VS_VALUE] = .DESCADDR; 


Return the address of the Data Type RST Entry as the Type ID. 
RETURN .RSTPTR; 
END; 


O7FC 00000 TYPEID_FOR_DESCR: 


«WORD Save R2,R3,R4,R5,R6,.R7,RB,RI,RI0 
5A 000000006 00 3 9002 ROvAB RSTSTEME Ist, riod 
6 18 00¢ BLEQU  1$ 
59 0c AC D B96 MOVL 12(AP), ARRFLAG 

é 11 0001 BRB 2$ 
5 Be BOG oe, OME Sire 
g § pS tts BLBC ARRFLAG, 3$ 
2 A bo ic MOVL #10, SIZE 
7 1F BRB 5$ 
0 4 A po 0 1 38 MOVL BESCADDR RO 
4 3 ao 91 CMPB (RO), w& 
12 1 BEQL 4 
OA 03 AO 9 B CMPB (RO), #10 
oc 1 F BEQL «ss 4$ 
OE 03 Ad ? 1 CAPS 3{R0), #14 
0c 03 A 94 ; CHPS (RO), #2 
i 9A 4$: MOV ZBL 11(RO), RO 
OC C4 MULL2 #12, RO 
14 AO SE 00044 MOVAB gocho, S126 
03 A c 48 5S: ROVAB (R2), R 
0 s C Divie #4, RO 
OE AO SF 0004F PUSHAB 14(R0) 
000000006 00 01 FB 00052 CALLS #1, DBGSGET_MEMORY 
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ROUTINE TYPEID_FROM_DST_TYPESPEC(DSTADOR, FCODE, BITSIZE) = 


FUNCTION 


This routine builds a Data Type RST Entry for a data type specified by a 
DST Type spec fication embedded in some other symbol"s DST record. for 
example, the cet} type of an array er the reterensee type of a typed 
pointer is specified by a Type Specification in the DST record for the 
array or the typed pointer, but does not have a separate DST record of 
its own. This routine is normally called when a Type ID (i.e., an RST 
ointer to a Type RST omeree must be produced for pyce a data type, 

he RST entry s added to the Ls ip eg RST Entry List so that 
fosgeees back to the memory pool once there are no longer any references 


The routine builds a Data Type RST Entry and a ery DST record in the 
same memory block. The OST record is a Type Specification DST record 
with the null name and an Indirect Type Specification pointing to the 
DST Type Specification qtven as the input parameter. The RST entry is 
then set to point to this dummy DST record. 


INPUTS 


DSTADDR = The address of the DST Type Specification for which a Type ID 
is to be generated. 


FCODE = The type Format Code associated with the Type Specification. 
BITSIZE = The size in bits of an item of this type. 


OUTPUTS 


The data type's Type ID (i.e., a pointer to the Type RST Entry) is 
returned as the routine’s value. 


BEGIN 
LOCAL 
DSTPTR: REF RECORD, ! Pointer to generated DST record 


DSTS 
RSTPTR: REF RSTSENTRY ' Pointer to generates Type RST Entry 
TSPTR: REF DSTSTYPE_SPEC; ! Pointer to Type Spec in DST record 


! Get a omery block large enough to accommodate both the RST entry and 
the dummy DST record. 


RSTPTR = DBGSGET_MEMORY(RSTSK_TYPENTSIZ + 3); 
DSTPTR = .RSTPTR™+ 4®RSTSK_TYPENTSIZ; 
: Build the Data Type RST Entry for the input type. 


RSTPTRCRSTSL_DSTPTR] = ,DSTPTR: 
RSTPTRERSTSL UPSCOPEPTRI = ,RSTSSTART_ADDR; 
= RS YPE; 


T 
T$B-KIND T$K_T 

RSTPTRLRST FCODE) = .FCODE; 

RSTPTRERSTSL -BITSIZE) = .BITSIZE; 
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$ 3 
; ! Put this Data Type RST Entry on the Temporary RST Entry List. This will 
: 5 i cause the entry to be released at the end of a DEBUG command when there 
: are no references to it (when it is net loshet. 
; : RSTPTRCRSTSL_HASH ELINK) = .RSTSTEMP_LIST; 
; i RSTSTEMP_LIST = .RSTP 
: 1 
: 88 \§ } Build the dummy DST record for the type. 
> 26 14 DSTPTRIDST$B_LENGTH 
: 208 i DSTPIREDS TSB YPE] ; Dstbx _TYPSPEC; 
> 2610 1 DSTPTREDSTS$B~ TYPSPEC NAM = 0; 
> 2411 31 TSPTR = .DSTPTR 
; aig 18 TSPTR DST $W_TS_LENG Gt j= 
3 241 51 TSPTREDST$B_TS_KINDJ 2 dstéx TS_IND_TSPEC; 
3 at 3 9 TSPTREDSTSL_-TS_IND_P PTR] = DBGSRST _DST_PTR( .DSTADDR = .DSTSBEGIN_ADDR ); | 
: 261 
: ci? § } Return the RST pointer to the caller. 
3 419 3 5 RETURN .RSTPTR;: | 
: “34 35$ 1 END; 
001C 00000 TYPEID_FROM_DST_ IYPESP C: 
~WORD “gave R : 2446. 
54 000000006 00 9€ 0002 v 1$Tenee weKie R4 : | 
OE bb 0 PUSH fie > 2691) 
000000006 99 gi FB 0 CALLS #1, DBGSGET_MEMORY : 
DO 0001 MOVL RO. RSTPTR : 
5 2c «AS «(9E 0001 MOVAB 44(R3), DSTPTR + 249 
oc A 50 00 00019 MOVL DSTPTR. 12(RSTPT : 249 
10 a3 000000006 09 1 MOVL RSTSsTART ADDR, TOCRSTPTR : 498 
14 =O MOVB a OCRSTPTR) 3 24 | 
18 A 08 ac MOVB FCODE, 24(RSTPTR) ; 2500 
20 A OC aC D 5 MOVL BiTSife 32(RSTPTR) : 2501 
6 4 D MOVL  RSTSTEMP_LIST, (RSTPTR) : 2508 
64 3 0 MOVL RSTPTR, RSTSTEMP_LIST : 09 
60 AF Og : MOVW #44809, (DSTPTR) > 2514 | 
AO 94 CLRB g(stPte) 3 16 
5 03 A MOVAB 3(RO), TSPTR > 251 | 
6 3 mOVw «#5, (fSPTR) : 18 
2 A F move #15. 2¢TSPTR) : 2519 | 
7E AC 000000006 9 C § SUBL 3 DST SBEGIN ADDR, DSTADDR, -(SP) : 2520 | 
000 96 0 F 2 CALLS #1, BG RST_DSf_PTR ; 
$ § i Te le 2525, 
Be RET : : 3333 
3; Routine Size: 100 bytes, Routine Base: DBGSCODE + 0D8D 


N 14 | 
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ROUTINE TYPEID_FROM_DST_RECORD(DSTADDR, FCODE, BITSIZE) = 
FUNCTION 
This routine returns a Type ID for the item described by the DST record 
pointed to by DSTADDR. 


INPUTS 
DSTADDR = The DST address of the record defining this item. 


FCODE = The Format Code which corresponds to the type of this item. 
BITSIZE = The size in bits of this item. 


OUTPUTS 
A 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: Type ID for the type of the item is returned as the routine'’s value. 


will construct a Type I 


LOCAL 
RSTPTR: REF RSTSENTRY; ! Pointer to generated Type RST Entry 


the data item is atomic, we call DBGSTYPEID_FOR_ATOMIC to build the 
sired Data Type RST Entry. We return its output directly. 


FCODE EQL RSTSK_TYPE_ATOMIC 
RETURN DBGSTYPEID_FOR_ATOMIC(..DSTADDRCDSTSB_TYPEJ, .BITSIZE, FALSE); 
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: Get a memory block to hold the Data Type RST Entry. 
RSTPTR = DBGSGET_MEMORY(RSTSK_TYPENTSIZ); 


: Build the Data Type RST Entry for the input type. 


RSTPTREIRSTSL_DSTPTR] = .DSTADOR; 
RSTPTRERSTSL_UPSCOPEPTR) = .RSTSSTART_ADOR; 
RSTPTRERSTSB_KIND) = RSTSK TYPE; 
RSTPTRERST$B_F CODE) 

RSTPTRERSTSL_BITSIZ 


= .FCOBE; 
€) = .BITSIZE; 
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! Put this Data Type RST Entry on the Temporary RST Entry List. This will 
' cause the entry to be released at the end of a DEBUG command when there 
are no references to it (when it is not locked). 
RSTPTRCRSTSL_HASH_FLINK) = .RSTSTEMP_LIST; 

RSTSTEMP_LIST = .RSTPIR; 
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1 | 
BEGIN 
MAP 
DSTADDR: REF DSTSRECORD; : Pointer to DST record from to #e 
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RSTTYPES 1e-Se =1984 02:58: AX=-11 Bliss-32 V4.0-742 Page 81 
V 102308-1 382 93738:99 DEBUG. SRCIRSTTYPES 83251 . (28) 
; 2480 5 3 | 
3; 2481 § Ha 
$ rt § 4 Return the RST pointer to the caller. 2 4 
; 5 s 4 
: 26 9 RETURN .RSTPTR; 3 
> 2485 90 3 
> 2486 91 END; 2 | 
2 
| 2 
| 24 
0004 00000 TYPEID.FROM_DST_RECORD: I 
WORD R2 ; 2528 3 
52 000000006 9 00 9€ 90002 HOVAB RSTSTEMP_LIST, R2 : 5 
0 0 AC D1 0000 CMPL  FCODE, #2 : 2560) $4 
13 12 00000 BNEQ ~=s*1$ : | 7 
7E 04 O000F CLRL = = (SP) > 2562. ay 
o¢ AC DD 00011 PUSHL BITSIZE ; | 2 
50 4 AC 00 00014 OVL DSTADDR, RO : a 
ve 01 AO 9A 00018 MOVZBL VeRO) =(SP) : | 2 
FC12—sCF 03 FB 9901¢ CALLS #3, DBGSTYPEID_FOR_ATOMIC : | 34 
04 0021 ET : | 4 
OB DD 00022 1$ PUSHL #11 : 2567) a; 
000000006 00 01 FB 00024 CALLS DBGSGET MEMORY ; 5; 
0c Ad 06 AC 00 00028 MOVL DSTADDR T2TRST : 572 | 3 
10 Ad 000000006 00 bo 0030 MOVE —RSTSSTA TART ADDR. PTOCRSTPTR) : 2573) 1 
14 AO 07 90 00038 MOVB #7, 20(RSTPTR) : 2574 | 24 
18 a0 08 AC 90 0003C MOVB FCODE, 24(RSTPTR) : 2575 34 
20 Ad OC AC DO 00041 MOVL  BITSIZE, 32(RSTPTR) : 2576 3 
60 $2 00 00046 MOVL  RSTSTEMP_LIST, (RSTPTR) : 2583 34 
62 50 D0 00049 MOVL  RSTPTR, RSTSTEMP_LIST ; 2584 7 
04 0004C RET ; 2591 34 
e 4 
; Routine Size: 77 bytes, Routine Base: DBGSCODE + ODF1 | 2 4 
Pie | 
| 2 4 
2 
4 
2 
| 
2 4 
24 
2 
4 
a 
. | 
e | 
2 
e 4 
e | 
e | 
e | 
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; ret 3 } ROUTINE FIND_TYPE_RECORD(SYMID, FCODE, BITSIZE) = : 
3; 24 94 1 ! FUNCTION 5 
3; 2491 95 1! This routine takes a symid, and tracks down the type spec which 3 
: 249 238 1! describes it. In the process, it determines the Format Code and F 
: 249 97 1! bit size of the item. F 
3: 24 98 1! 3 
> 26 99 1! INPUTS | ; 
3: 249 600 1! SYMID = The SYMID of the item whose type we want. (Note that the 3 
3 red ed ' SYMID may itself represent a named type.) | : 
; 2499 603 1! FCODE = The address of a longword to receive the format code of : 
; 200 ope ! } the specified item. : 
3 208 606 1! BITSIZE = The address of a longword to receive the size in bits of 3 
; 250 607 1! the specified item. 3 
3 2504 608 1! $ 
; 2505 609 1 ! OUTPUTS | : 
; 208 $19 } FCODE = The format code of the item is returned to FCODE. 3 
Ps 4 | Ps 
3 3508 solg : BITSIZE = The size in bits of the item is returned to BITSIZE. : 
; $86 2614 1! The data type's Type ID (i.e., a pointer to the Type RST Entry) is : 
3; 2511 2615 1! returned as the routine'’s value; zero is returned if no 3 
3 s2i¢ 616 1! type exists. 3 
3; 251 617 1! $ 
3 2514 618 1 : 
: 2515 619 BEGIN | ; 
; 2516 2620 3 
; 2517 2621 MAP : 
: $218 26 ¢ SYMID: REF RSTSENTRY; F 
3 2519 26 ; 
: 2520 2624 LOCAL 3 
: 2521 $6 5 CLASS 3 
; 3¢@ 626 DESC _PTR: REF BLOCKC,BYTE), F 
: 252 2627 DST PTR: REF DSTSRECORD, ; 
; se $6 8 HAVE _TYPE, 3 
3; 2525 629 KIN 3 
3; 2526 $6 0 LENGTH 3 
3 2527 631 SAVEF CODE ; 
; 328 63¢ SAVEID: REF RSTSENTRY, : 
3 25 634 TYPEID: REF RSTSENTRY ; 
: 331 635 TYPE_PTR: REF DSTSRECORD ; 
> 25 : 6 TYPE-SPEC: REF DSTSTYPE_SPEC, ; 
3; 253 6 VALKIND, 3 
3 25 638 VAL_PTR ; 
3 2535 639 VAL“VECT: VECTORC3); : 
: 25 640 3 
; 25 641 3 
3; 25 236 NOVEL_LENGTH_FLAG = FALSE; $ 
> 2539 64 DBGSSTA_SYMKIND(.SYMID, KIND); 3 
3 2540 644 SELECTORE .KIND OF : 
7 2541 645 pet é 
: 246 646 RST$K_TYPE): 3 
: 254 64 8 N : 
3 25446 648 -FCODE = .SYMIDC®ST$B_FCODE); 3 
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ZE Fig y OCRSTSL_B1 SIZE); 


RSTTYPES 
Vv = 


-BITSI 
peru 


mers TYPCOMP, RSTSK_DATA): 


TYPEID = sSYMIDERSTSL_TYPEPTRI; 
If .TYPEID NEQ 
THEN 
BEGIN 
HAVE_TYPE = TRU 
SAVEFCODE = .TY 


E; 
PE IDC RSTSB_F CODE; 
SAVEID = ,TYPEID; 
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: 4 

4 4 

3 4 

3 & 
: $560 och 3 LSE | 
3 61 665 HAVE_TYPE = FALSE; 

; 8 re] DST_PTR = « SYMIDERSTSL DSTPTRI; 

: ¢4 208 SELECTONE -DST_PTR DSTSB_TYPE OF 

3 2566 670 DST$K_SEPTYP): 

; 2567 671 4 BEGIN 

Be He 

> 2570 674 4 ! Normally, TYPE_SPEC returned from DBGSFIND_SEPTYP does . 

: 2571 675 4 ! not _ mean anything if TYPE_PTRCDST$B_TYPE) EQL 

; I: 676 4 ! DSTSK_ENUMBEG or DSTSK_RECBEG. In Riere this case 

3 257 677 4 ! is caught early by HAVE_TYPE set to TRUE. In cther 

3 2574 678 4 ! words, in this routine, DSTSK_ENUMBEG or DSTSK_RECBEG 

; 3f? 44 ° always comes in to have TYPEID. (We hope). 

: 279 681 4 SIZE = DBGSFIND_SEPTYP(.DST_PTR, TYPE_PTR, TYPE_SPEC); | 
; 2578 682 4 -BITSIZE = .SIZE; 

: 2579 683 4 if .HAVE_TYPE | 
: $260 ges 8 THEN BEGIN | 
; 286 68 -FCODE = .SAVEFCODE; 

: $2 $88 

3 2585 689 1 ! The novel Length flags gets set earlier, in 

> 2586 690 3 i FIND_TYPSPEC, if we encounterd a novel length 

3; 2587 691 } type spec on the way to our ‘real’ type-spec. 

3 288 69 ' i this flag is set and if the ‘novel’ size 

> 2589 69 i is different from the size we have in the 

: 2590 694 ! typeid. then we build a new typeid with 

; 33 ao? ! the novel length in it. | 
; 298 $39 if .NOVEL_LENGTH FLAG AND | 
: 25946 O38 (,SAVEFCODE EQC RSTSK_TYPE_ENUM) AND 

3 337 $ g pgoice NEQ .TYPEIDCRST$SL_BITSIZE)) 

ee mS a 

: 298 7 Q 6 DUMMY: VECTORC2); 

3; 2600 704 ° LOCAL 
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LAST_SYMID: REF RSTSENTRY, 
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15 
1$-ep-1964 02:58:00 YAK=I1 BLina=82, yt. 0-742. 
TEMP_SYMID: REF RSTSENTRY; 
LENGTH © RSTSKATYPENTSIZ », TYRELOGRSTSL.TYPCORPCNT]: 
: Make the copy. 
CHSMOVE(.LENGTH*4, .TYPEID, .SAVEID); 


! Modify the typeid. We create a ‘‘dummy"’ hash 
chain for it. 


SAVELOCRSTSL_UPSCOPEPTR] = .RSTSSTART_ADDR; 
SAVEIDCRSTSL-BITSIZEJ = .SIZE; 
DUMMY i = ,SAVEIO; 
DUMMYC1) = .SAVEID; 
SAVE LDCRSTSL_HASH_FLIN } = .DUMMY; 
SAVEIDCRSTSL_HASH BLINK) = .DUMMY; 
SAVEIDCRSTSL_SYMCANPTR] = 0; 

I 


! We put the new SAVE 
! for this module so i 
cancel the module. 


TEMP_SYMID = .SYMID; 
WHILE. .TEMP_SYAID NEQ 0 DO 


LAST_SYMID = .TEMP_SYMID: 

TEMPSYMID = .TEMP~SYMIDERSTSL_SYMCHNPTRI; 
LAST SVAIDRSTSL SYMCHNPTR] = .SAVEID; 

SvMID RSTSL_TYPEPTR] = .SAVEID; 


RETURN .SAVEID; 
END; 


K 
K 
j= 

: typeid on the Saenere 


gets freed up when we 


' If we have a descriptor type, then we need to check 
whether this is an array descriptor. 


UF y( TVPE.SPECCDSTSB_1S_KIND] EQL DSTSK_TS_DSC) 
N 
VAL_PTR = TYPE_SPECCDSTSA_TS_DSC_VSPEC_ADDR); 
DBGSSTA VAL SPEC VAL PTR, VAC_VECT, VACKIND); 
IF gVALRIND NEQ DBG R_VAL_DESTR 
SDBG_ERROR('RSTTYPES\FIND_TYPE_RECORD 20°); 


DESC_PTR = .VAL_VECTCO); 

DBGSREAD_ACCESST DESC Ptr, 12): 

CLASS = 7DESC_PTRLDSCSB CLASS): 

IF (.CLASS EOC DSCBK _CLASS_A) OR 
(CCLASS EQL DSCSKTCLASS-NCA) OR 
({CLASS EQL DSCSK"CLASS"UBA) OR 
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— EQL DSCSK_CLASS_VSA) 


N 

BEGIN 

-FCODE = RSTSK_TYPE_ARRAY; 

RETURN TY PEID_FOR_DESCR(.bDESC_PTR, ..FCODE); 
ELSE 

BEGIN 

.FCODE = RSTSK_TYPE_DESCR 

RETURN TYPEID_FOR_DESCR(.DESC_PTR, ..F CODE) 
END; 


-FCODE = DBGSTRANS TYPE eth . TYPE_SPECCDST$B_TS_KINDJ); 
IF ..FCODE EQL RSTSK_TYPE_A C 


TOMI 
RETURN DBGSTYPEID_FOR_A Bons. 


( 
- TYPE_SPECCOST$B ATOM_TYP], .SIZE, FALSE) 


ELSE 
RETURN TYPEID_FROM_DST_RECORD(.TYPE_PTR,..FCODE,.SIZE); 


END; 
CDOSTSK_BLI): 
BEGIN 


-FCODE = RST$ LIDATA; 
Y 


B 
ITSIZE = GE ze FROM PaSTaK TYPE_BLIDATAT DSTPTRI); 
A 


8 
RETURN DBGST 
- BIT 
END; 
CDSTSK Freer DSTSK_RECBEG): 
pited = sr SAVELDERST FCODE); 


TSIZE = .SAVEIOCRSTSL_BITSIZE); 
RETURN SAVE 


RTOmIC( RSTSK_TYPE_BLI 


K_ 
Pe 
S CSE); 


wpeete the COBOL Hack DST Record. Here we call a routine 
which converts that DST record into a more regular Type RST 
Entry. We then get the FCODE from that RST entry and re- 
turn the entry's address as a Type ID. 


DSTSK_COB_HACK): 
BEGIN 


TYPEID = TYPEID FOR _COB_HACK(.DST_PTR); 
-FCODE = VTYPEIBER ST$B_FCODE); 
-BITSIZE = 

RETURN AX a 


CosT$ 


a 


ox PL IFLOD: 
-FCODE = RSTSK_TYPE_BLIFLD; 
-BITSIZE = 0; 


sh 
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bese ~3007 1388 9g: 38:00 AX-11 Bliss-32 V4.0-742 


14-Sep-1 DEBUG.SRCJR STfvPE -632;1 
_ DBGSTYPEID_FOR_ATOMIC(RSTSK_TYPE_BLIFLD,O,FALSE); 


sets LBLORLIT): 
-FCODE = RST K ~TYPE ATOMIC; 


“BITS! 
RETURN DBGSTYPEID_FOR_ATOMIC(DSCSK_DTYPE_LU, 32, FALSE); 
COTHERWISE): 
BEGIN 
IF (.DST_PTRCDSTSB_TYPE) LSS DSCSK_DTYPE_LOWEST OR 
-DST-PTREDSTSB- TYPE] GTR DSCSK~ =DTVPE” HIGHEST) AND 

(.DST“PTREDSTSB_TYPE) NEQ DSTS$K-BOOL) AND 

regres t=PTR DSTSB-TYPE) NEQ DSCSK-“DTYPE_TF) 
$DBG_ERROR('RSTTYPES\FIND_TYPE_RECORD'); 


FCODE = DESC_OR_ARRAY OR_ATOM(.SYMID, DESC_PTR); 
oe EQC RSTSK_TYPE_ATOMIC 


= 


GIN 
-BITSIZE = GET BITSIZE, FROM vet. DST_P TREDS T$B_TYPE)); 
RETURN DBGST TYPEID_FOR_ BORIC. DST TRUDST TSB_TYPET, 
. BITSIZE; FALSE); 
END 
ELSE 
BEGIN 
-BITSIZE = 0; 
RETURN TYPEIO_FOR_DESCR(.DESC_PTR, ..FCODE); 
END; 
TES; 
END; 
CRSTSK_VARIANT): 
BEGIN 
LOCAL 


VAR_PTR: REF DSTSVARBEG_TRAILER; 


-FCODE = RSTSK_VARI 
DST PTR = SSYATDURSTSL gti 
VAR-PTR = PST PTRCDSTSB_N +14 giot PPMLDe eR Be 2: 
-BITSIZE » VAR_ PTR DsTsu- MVARBEG. SIZE 

A ey YMiD: 


COTHERWISE): 
RETURN 0; 


TES; 


nelaps® ieee 03:48:00 YARSNY BLISECER Wes05t42, Page BF 


; 2773 2877 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


49 46 : 53 4 9 : 4 54 ; 16 184 P.AAT: ASCII <28>\RSTTYPES\<92>\F IND_TYPE_RECORD 20\ ; 
49 46 53 45 5 4 54 19 OO1A1 P.AAU: .ASCII <25>\RSTTYPES\<92>\F IND_TYPE_RECORD\ : 
44 : “FG 28 2 5F 45 § 54 00180 . ites ee ee : 
«PSECT DBGSOWN,NOEXE, PIC,2 
00004 DUMMY: .BLKB 8 
-PSECT DBGSCODE,NOWRT, SHR, PIC,O | 
OFFC 00000 FIND_TYPE RECORD: 
-@ORD Save R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11 3 2592. 
MOV L GNA e R11 é ! 
B 000000006 00 000 AB 1B$S1 {1 
os ‘ $01 Sues wee mi 
FC AA 0018 CLRL NOVEL LENGTH_FLAG > 2642 
5€ SS 9016 PUSHL SP + 264 
56 04 AC 00 0001 MOVL SYMID, R6 ; 
56 DD 0001C PUSHL Rs : 
000000006 00 02 FB 001 CALLS #2, DBGSSTA_SYMKIND : 
50 of DO 000 MOVL KIND, RO : 2644 
07 D1 000 CMPL =soRO, &7 > 2646 
0D 12 99 4 BNEQ 1$ ; 
08 BC 18 A6 9A 000 MOVZBL 24(R6), @FCODE : 2648. 
0c «BC 20 ont’ b0 9 mOVL 55" ), aBITSIZE ; $49 
06 50 (D1 50 A 1$ CMPL RO, #6 : gee 
08 13 90 BEQL = 2$ : 
OA 30 D1 0003F CMPL RO, #10 : | 
03 13 00042 BEQL $ : 
0216 31 44 BRW 1$ : 
53 18 Ab OD 7 23 MOVL 4(R6), TYPEID : 2655 | 
o¢ 1 48 BEQL 5 + 2656 | 
5 1 p b MOVL #1, HAVE_TYPE > 2659 | 
2 18 A} A MOVZBL 24(TYPEIB), SAVEFCODE > 2660 | 
00 4 MOVL  TYPEID, SAV ; 661 
: 7 BRB 4$ 3 26 $ 
D4 9 3$: CLRL - HAVE_TYPE 3 2665 | 
2 oc Ag 0 B 4S: MOVL 12(R8), DST_PTR + 2667 | 
4 1 A2 9A 0005F MOVZBL 1(DST_PTR),~R4 > 2668 | 
A3 f 4 + C R4, #163 3; 2670 | 
3 : BEQL 5$ : 
0116 <) BRW 16$ ; 
04 AE OF 6C 5S PUSHAB TYPE_SPEC : 2681 
C AE OOF AF PUSHAB TYPE PTR : 
dD é PUSHL DST_PTR : 
F149 cf FB 7 CALLS #3, DBGSFIND_SEPTYP : 
9 ) 79 VL RO, SIZE 3 
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3; Routine Size: 


Kk 15 
16-Sep-1984 02:58: AX-11 Bliss-32 V4.0-742 Pa 
1o=ge8- 1382 95:78:99 ares euciasT types Boo. 9 sos 
| 
oc at 0 OO1F MOVL #32, @BITSIZE : | 
Be % ay 1g mOVG 435° -(SP) : $B3s 
4 pp 1F PUSHL #4 : 
48 178 4s: BRB 28$ ; 
4 2 170 25$:  TSTL R4 + 2832. 
5 1FF BLEG ©=-_«-26$ : | 
25 34 91 1 CHEB Re #37 + 2833) 
9— 8F 54 4 268:  CMPB R4, #158 : 2834) 
16 1 A BEaL = 278 ; | 
28 54 HI C CMPB oaRG, #40 ; 2835 | 
11 j F BeQL ~=soa7$ : 
00000000" EF 9F 1 PUSHAB P.AAU : 2837) 
1 0D 00217 PUSHL #71 : 
00028362 8F DD 00219 PUSHL #164706 : 
68 3 FB OO2TF CALLS #3, LIBSSIGNAL : 
10 AE OF 0 27$ PUSHAB DESC_PTR + 2839 
56 0D PUSHL R 3 
0000v CF Q FB 0 CALLS #2, DESC_OR_ARRAY_OR_ATOM : 
08 BC DO 00 4 MOVL RO, aFCOD F | 
02 08 &8C D1 00 CMPL  aFCODE, # + 2840 
18 12 00 BNEG 29$ ; 
54 0D 00 PUSHL R4 + 2843 
0000v CF 1 FB 0 CALLS #1, GET_BITSIZE_FROM_DTYPE : 
OC BC 0 DO 00230 MOVL RO TSIZE : 
E D4 00241 CLRL Os = (SP ; Bas 
0c Bt DD 00243 PUSHL  aBITSIZE + 2845 
4 Dd 00 46 PUSHL R4 + 2844) 
F999 CF 03 FB 00248 288: CALLS #3, DBGSTYPEID_FOR_ATOMIC : 
04 00240 RET + 2849 
0C BC 04 00 oF 29$: LRL aBITSIZE : 2850 
08 BC 0D 00 3 PUSHL aF CODE + 2851 
14 AE DD 00254 PUSHL DESC PTR : 
FC31.—sCF 0 FB 0 37 30 CALLS #2, TYPEID_FOR_DESCR Pacis 
08 50 01 00250 31$ CMPL R09 rah : $B¢0 
19 12 00260 BNEG 33§ : 
08 e 0B OD 62 MOVL #11, aFCODE + 2865 
oc A p MOVL 12(Re) DST_PTR : 2866 
3 07 A2 9A 0026A MOVZBL (0s PTR) RO : 2867 
0 B A042 9 $ MOV 8(RO)CDST_PTRJ, VAR_PTR : 
oc eC : D MOVL  (VAR_PTR)> a@BITSIZE : 2868 
0 6 BO qr 328 ROVL R6, RO + 2869 
50 D4 00278 338 CLRL = RO : 287 
4 0027D RET ; $8 
638 bytes, Routine Base: DBGSCODE + OE3E 
| 
| 


WEBeort9Re 03:88:00 YARN euissct2 w4s0zt42, Page, ot 


1?) r ROUTINE DESC_OR_ARRAY_OR_ATOM(SYMID, DESC_PTR) = 

+9§ i FUNCTION | 

ore : This routine takes a SYMID and determines whether it is of type atomic, 

f ¢ : array, or descriptor. 

781 i INPUTS | 

f 5 : SYMID = The SYMID in question. 

7 i DESC_PTR = The address of a longword location to receive the address 

f 5 89 : of the item's descriptor (if present). | 

7 i OUTPUTS | 

7 91 ! DESC_PTR = For return values of RSTSK_TYPE_DESCR and RSTSK_TYPE_ARRAY, 

re 35 : DESC_PTR receives the address of the item's descriptor. | 

791 94 i The routine’ s value will be agne of RSTSK_TYPE_ATOMIC, RSTSK_TYPE_DESCR, 

35 95 H RSTSK_TYPE_ARR 

36 9 4. | 
9 BEGIN | 
899 = 


DESC_PTR: REF BLOCKC,BYTE), 
SYMIB: REF RSTSENTRY; | 


LOCAL 
CLASS | 
DESCAADDR: REF B OcKC BYTE), | 
DST PTR: REF D | 


VALPTR: VEETOR 33" 
VKIND; 


IF _ .DST_PTRCDSTSB_VFLAGS) EQL DSTSK_VFLAGS_DSC 
DESC_ADDR = .DST_PTRCDSTSL_DSC_OFFS) + DST_PTRCDSTSA_DSC_BASE) 
ELSE 


DBGSSTA. SYMVALUE ( SYHID,VALPTR,VKIND) ; | 
IF .VKIRD NEQ DBGSK_VAL_DESCR | 


N 
$DBG_ERROR("RSTTYPES\DESC_OR_ARRAY_OR_ATOM'); 
DESC_ADDR = .VALPTR(O); 
END; 


91 | 
91 | 
31 | 
81 91 T_PTR = sSvmiperstss DSTPTRI; | 
: 4 PDs -PTRCDSTSV_VALKIND] NEQ DSTSK_VALKIND_DESC 
91 RETURN RSTSK_TYPE_ATOMIC | 
1 91 ELSE | 
1 9 BEGIN | 
1 9 
1 9 | 
9 
9 


WN —§ OOOO NEW O OONO UE WIN OS 


SSeesereTcssEsss 
Patsy SeeeeResss 
ORE BB BBB EF MAA AMPED ININIPINIAINIPINININININININIPTPAINDIIIY a ad a a a a tt at at at tt 


=O ONO VE WN OOO NOUE w= 


-Sep-1 :5 AX-11 Bliss-32 V4.0-742 
16-ep-1984 96: 33: 99 DEBUG. SRCIRSTTYPES B32: 1 
: 3 5 : 1F NOT PROBER( %REF(O), ZREF(12), .DESC_ADDR) 
; 9 3 i BEGIN 
3 2835 9 8 4 LOCAL 
3 9 4 NAME ; 
3 340 4 DBGSSTA_SYMNAME(.SYMID, NAME); 
; 341 4 SIGNAL (DBGS_ BADDESCR, 1, .NAME); 
: 2840 308 CLASS = .DESC ADDRLDSCSB_CLASS); 
3 2841 944 -DESC_PTR = .BESC_ADDR; 
3 ¢ 945 iF (. CLASS EQL DSCSK_CLASS_A) OR 
; 246 (CLASS Edt DSCSK-CLASS NCA) OR 
> 2844 94 (CLASS EQL DSC$K-CLASS-UBA) OR 
3 2865 348 4 ; gif CLASS EQL DSCSK“CLASS-VSA) 
; ; 950 4 RETURN (RSTSK_TYPE_ARRAY) 
ee Ro 
> 2850 338 RETURN (RSTSK_TYPE_DESCR) 
Be pe; 
; Be 956 ; 
3; 2854 95 END; 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
SF 43 53 45 44 SC 53 45 50 59 54 54 53 QO1BB P.AAV: .ASCII <30>\RSTTYPES\<92>\DESC_OR_ARRAY_OR_AT\ 
54 41 SF S52 4F SF 59 41 52 52 41 5F OO1CA 
00168 ASCII \OM\ 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
ARRAY _OR_ATOM: 
Save Re. R3,R 
‘ 000000006 ROvAB L1BSSI¢ GNAL, Rs 
4 MOVL semi 
0 Bt MOVL Btls, 
02 02 a0 02 i CMPZV ff fost. PTR), #2 
vi BEQL pt 
50 i! aye #2, RO 
FA BF 02 it CMPB =. 2(DST_PTR), #250 
JM BNEQ $ 
59 03 06 ADDL2 (D 1 _PTR) 
0 MOV > vest ADDR 
i BRB 
0 PUSHL SP 
0c 0 PUSHAB VALPTR 
000000006 09 Y CALLS a3 npBcssta. SYMVALUE 
Beat 


Pete See Ge Ge Se Ge Se Se Se Se Se Se Se Se Se Be Se Se 


N15 
vo4-000° 1ecSep-19be 18:18:27 — EbeeuG. SACSASTI PEs esos 


00000000" EF 9F 4 PUSHAB  P.AAV 
1 DD 0004A PUSHL 
ae oe ChECS AS. CAGSSIGNAL 
2 08 ar 3 3$: VL tpir DESC_ADDR 
62 C 0 § i$: PROBER 40, 8, (DESC_ADDR) 
A D BNEQ 
O% 8 Bb bode. PUSH’ RGN 
CALLS #2, DBGSSTA_SYMNAME 
000000006 00 02 FB § 3 $ 
«ae et ye 
Pceaieal if | Ete 
$5 03 A2 9A 48 5$ MOVZBL 3(DESC_ADDR), CLASS 
08 aC DO 00070 vL SC_ABDR, abESC_PTR 
4 | 1 CMPL CLASS, a4 
a BEQL = 6 
OA 0 di 000 CMPL CLASS, #10 
OA 13 000 BEQL 
OE 9 D1 088 CMPL CLASS, #14 
13 BEQL = 6 
0c 0 01 CMPL CLASS, #2 
4 12 009 BNE 
50 1 DO 00095 6s: MOVL #1, RO 
04 00098 RET 
50 03 DO 00099 7s: MOVL #3, RO 
04 0009C RET 


3; Routine Size: 157 bytes, Routine Base: DBGSCODE + 10BC 


; 2855 2958 1 


16 
RSTTYPES 1e-Se 1984 02:58: AX-11 Bliss-32 V4.0-742 Pa 94 
- 14-Sep-19 4 93338: 99 DEBUG. SRCIRSTTYPES.832;1 9° (32) 


ROUTINE FIND_TYPESPEC(TYPE_SPEC, BITSIZE, DST_PTR) = 


FUNCTION 
This routine takes a starting ae gree and traces through the DST 
1 to find the destination type sere Fication; in this process the 
G66 routine is sensitive to DSTSK_TS_IND, DSTSK_SEPTYP, DSTS$K_GLOBNXT, 
86 and DSTSK_TS_NOV_LENG. (ALL of 
865 


867 
86 
86 
870 
871 


ys these types Indicate that the actual 
type specification is found elsewhere.) When a DSTSK_TS_NOV_LENG is 
detected, BITSIZE is updated to reflect the novel length. 


The routine loops until a true Type Spec is located. 


INPUTS 
TYPE SPEC = The DST address of the initial type-specification. 


BITSIZE - The address of a lonqword location to receive the size in 
bits of the specifi type. 
address of the DST record which contains the desired 
type specification. 


OUTPUTS 
The routine’s value is the DST address of the desired type-specification. 


fe] 
Se 


@ 
oo 
wt 


BITSIZE - The size in bits of an item of this type is returned to 
BITSIZE. If a novel a record was detected, BITSIZE 
reflects the novel length; otherwise, BITSIZE receives the 
default size for the indicated data type. 


DST_PTR = The address of the DST record which contains the desired 
ayeenenes is returned to DST_PTR. The routine’s value is 
a 


+ 3 


ways of type DSTSTYPE_SPEC? OST_PTR enables the callin 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
DST_PTR = The address of a longword location to receive the DST 
] 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
routine to Chow the start address of the containing DST record. 


O00. 
OOO 
—_ 


BEGIN 
LOC 


SO Oe 
SSB 


AL 
RECBEG_TRLR: REF DSTS$RECBEG_TRLR, 
TEMPTS: REF DSTSTYPE_SPEC, 


SES332 


BPX FM ANPINPINPIMMINININMIPININPYIDIMPRY a at at tt nt tt tk tk at tt at 0 tt tt ts 
c-m- 
x=<—m 


0 
99 001 TYPE“PTR: REF DSTSRECORD; 
900 4 
901 
908 0 MP_TS = .TYPE_SPEC; 
30% 508 oF pte'= 0 

Ss . 
905 B09 ILE TRUE DO 
308 008 BEGIN 
009 SELECTONE .TEMP_TSCDST$B_TS_KIND) OF 

908 010 pet 
909 oi DSTS$K_TS_IND): 
910 1 BEGIN 
$11 01 TYPE_PTR = DBGSRST_DST_PTR( .DSTSBEGIN_ADDR + .TEMP_TSCDSTSL_TS_IND_PTR) ); 
31g oe UF ont TPE PTR DST$B_TYPE] EQL DSTSK_SEPTYP 


" Se Se Be Se Se Se Ge Be Ge Ge Se Se Ge Se Se Se Ge Ge Se Ge Ge Ge Ge Se Ge Se FF Se Se Se Ge BF Se SH SH Ss Se Se FF Se Ge SF Se Si SESS SH Os Oe Oe Se Se Ge SH SH Ss es 
MITUPROPOROTUND 
Co2.c0 00 09000000 
> te ee | 
OCONOUS 


a eas, eer oi ae eee fee 


a DST Type Spec (as opposed to a Type Spec DST record). 


CDSTS$K_TS_IND_TSPEC): 
TEMP_TS ="DBGSRST_DST_PTR( .DSTSBEGIN_ADDR + .TEMP_TSCDSTSL_TS_IND_PTR? ); 


oo 
ye 


! Handle the Novel Length Type Spec. Here we pick up the length 
of data objects of this type and indirect to the Type Spec. 


CDST$K TS _NOV_LENG): 


+44 
: a 
ANEW = © ODNAUNE WN O ODNAUES UN @OOSENOUE WN OOONO 


RSTTYPES ibe -1984 258: AX-11 Bliss-32 V4.0-742 Page 95 
| Vous 1e-8ep-19 4 95:75:99 DEBUG. SRCIRSTTYPES.B32:1 (32) 
914 01 BEGIN 
915 4 TYPE_PTR = att: T_NEXT_DST( .TYPE_PTR ); 
318 4 AF eg FYPEAPTR DSTSB_TYPEJ EQL DSTS$K_GLOBNXT 
vay | 5 TYPE_PTR = DBGSRST_NEXT_DST( .TYPE_PTR ); 
920 0 END; 
921 0 
9 § 0 IF Poin Rs ti5 aah, ae | EQL DSTSK_ENUMBEG) OR 
3 ; 9 (.TYPEPTR DST$B-TYPE) EQL DST$K-RECBEG) 
; 5 8 EXITLOOP; 
9 . 0 TEMP_TS = TYPE_PTRCDSTSA_TYPSPEC_TS_ADDR] + 
928 0 . TYPE_PTRCDSTS$B_TYPSPEC_RAMEJ; 
2 8 END; 
2331 8 
sors BF ! Handle the kind of indirect pointer which points directly to 
34 303 
iH 303 
37 304 
8 
9 
0 
; ; 


PFT FTAA TTS 


ree) oy oF oF ot eal ot oF a a ach dl al et et et ee ee ee et ee ee a a et ar a) et et et a hd hh 


Be Se Se Be Se Se Se Oe Fe Se Be Se Se Be Ge Be Be Ge Se Ge Se Fe Ge Se FHSS Se Se Ge Os Se SH Ge Ge SH SH Se Se FH SH Se Ge Se SF Se Se Se Ge SF Se SF ee Se Ge ee Stee 


BEG! 
i 304 
$302 04 
946 She ' Make a note for the fact, we have encounted a novel 
7 04 ! Length dst. 
948 $02 ‘ 
949 05 NOVEL_LENGTH_FLAG = TRUC; 
$329 05 SIZE = .TEMP_TSCOST$SL_TS_NOV_LENG); 
51 05 TYPE_PTR = DBGSRST_DST_PTR( [DSTSBEGIN_ADDR + .TEMP_TSCDSTSL_TS_NOV_LENG_PAR_TSPEC] ); 
93g 05 IF .TYPE_PTRCDST$B_TYPE) EQL DSTSK_SEPTYP 
95 05 THEN 
954 05 BEGIN 
2955 057 TYPE_PTR = DBGSRST_NEXT_DST( .TYPE_PTR ); 
328 B28 IF TYPE pte DSTSB_TYPE] EQL DSTSK—GLOBNXT 
958 060 TYPE_PTR = DBGSRST_NEXT_DST( .TYPE_PTR ); 
959 061 
960 Bos END; 
961 06 
064 IF (.TYPE_PTR 4b bbe? EQL DSTSK_ENUMBEG) OR 
065 aot ere ren DSTSB_TYPE] EQL DSTSK_RECBEG) 
be EXITLOOP; 
09 TEMP_TS = TYPE _PTRCDSTSA_TYPSPEC_ TS ADDR] + 
0 . TYPE _PTRCOSTSB_TYPSPEC_RAME); 
4) END; 


2 8 
vO4-000° 1ecSep-196e 18:18:27 — EpeeuG.SRCSRSTI PES. 52.1 


: 2971 73 

; 358 i ; In all other cases, just exit the loop. 

: 2974 7 COTHERWISE): 

; 2975 i] EXITLOOP; 

; 44 | b78 TES; 

3; 297 07 

; 2978 080 END; 

: 2979 081 

; 2980 O8¢ If .TYPE_PTR NEQ 0 

; 2981 08 THEN 

: oes bee BEGIN 

: 29 5 .DST_PTR = .TYPE_PTR; 

: 2984 Bae 

3 + #4 08 

; 29 088 ! Note TEMP_TS does not mean anything for TYPE_PTRCDST$B_TYPE) EQL 
; 4 tf 94 DST $k ENUMBEG or DSTSK_RECBEG. 

3; 2989 091 if . TYPE -PTRCDSTSB_TYPE] EQL DSTSK_RECBEG 

; 2990 B36 THEN 

; 2991 093 4 BEGIN 

; 99 09% 4 RECBEG_TRLR = TYPE_PTRLDST$SB_NAME] + 1 + .TYPE_PTRCDSTSB_NAME); 
: 2994 096 4 

5 See 344 ¢ : Get size only if there is no novel Length overrides. 

3; 2997 099 4 IF .SIZE EQL 0 THEN SIZE = .RECBEG_TRLRCDSTSL_RECBEG_SIZE]; 
; 2998 100 4 -BITSIZE =. ; 

: 2999 101 4 RETURN .TEMP_TS; 

; 3000 196 4 END 

; 3001 103 4 

: $008 104 3 ELSE 

3 300 105 4 BEG 

3 3004 106 4 IF .TYPE_PTRCDSTSB_TYPE] EQL DSTSK_ENUMBEG 

; Sone 107 4 THEN 

; 006 138 5 BEGIN 

; 300 109 5 

; 3008 110 5§ 

: sts a 2 Get size only if there is no novel length overrides. 
: 3011 118 IF .SIZE EQL 0 res SIZE = .TYPE_PTRCDSTSB_ENUMBEG_LENG); 
: Big 114 -BITSIZE = 

3; 301 115 RETURN TEMP. TS; - 

; bie 118 4 END; 

3 15 117 4 

3 Bis 118 END; 

3; 301 119 

3 Big : 9 END; 

: 3020 1 § IF .SIZE EQL O THEN SIZE = DBGSGET_BITSIZE_FROM_TYPESPEC(.TEMP_TS); 
: 1 1 -BITSIZE = SIZE; 

; 30 é 126 RETURN .TEMP_TS; 

: 30 125 

3; 3024 126 END; 
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OOFC 00000 FIND_TYPESPEC: 
. WORD 


Save R2,R3,R4,R5,R6,R7 ; 2959 
7 99000006 9E 002 MOVAB ODSTSBEGIN_ADDR, R7 : 
§ 0 0 006 9E 0000 MOVAB DBGSRST_NEXT_DST, R6 : 
00000006 3 19 MOVAB DBGSRST-DST_PTR, RS : 
3 06 AC O 1 MOVL TYPE_SPEC, Tf 3 3004 
24 04 00018 CLRL =. SIZE : 3005 
: 04 0001D CLRL TYPE PTR : 006 
50 02 AS 9A OOOTF 18 MOVZBL 2(TEMP_TS), RO : 
0 A f 09 3 CHEB RQ. #3 + 3011 
7E 67 03 A’ C1 000 8 ADDL3 Sc rem TS), DSTSBEGIN_ADDR, -(SP) : 3013 
65 gi FB 00020 CALLS #1, DBGSRST_DST_PTR : 
52 0 b0 00 MOVL RO, TYPE_PTR : 
A3.—soBF 01 Ae 21 99 cMPB 1CTYPE_PTR), #163 + 3014 
35 DD OO03A PUSHL TYPE_PTR : 3017 
66 9} FB Boose _ CALLS #1, BBGSRST_NEXT_DST ; 
52 0 DO 0003F MOVL RO. TYPE PT ; 
AO 8F 01 Ae 91 004¢ CMPB =s-:« 1 fYPE_PTR), #160 ; 3018 
45 13 0004 BEQL 4 6=s«SS$ ; 
48 11 00049 BRB 6$ + 3024 
OF 50 91 00048 2$ CMPBséRO, «#15 : 3037 
op 12 OO4E BNEQ 4$ : 
7E 67 03 Ad C1 0005 ADDL3 3(TEMP_TS), DSTSBEGIN_ADDR, -(SP) : 3038 
65 - gi FB 00055 CALLS #1, DBGSRST_DST_PTR : 
53 0 dO 90058 MOVL RO, TEMP_TS ; 
£2 11 00058 3$: BRB 1$ : 
OE 50 9% 0005p 4$: CMPB RO, #14 + 3044 
40 if} 00060 BNEQ 7$ ; 
00000000' Ef 01 D 9006¢ MOVL #1, NOVEL_LENGTH_FLAG : 3051 
4 03 a3 D0 9006 MOVL.  3(fEMP_TSY, SIZE : 305 
7E 67 07 a3 C1 00060 ADDL3 7(TEMP“TS), DSTSBEGIN_ADDR, -(SP) > 305 
65 01 FB 90072 CALLS #1, DBGSRST_DST_P ; 
52 50 00 0007 MOVL RO, TYPE_PTR $ 
A3sOBF 01 Ag 91 00078 CMPB Ss (fYPE_PTR), #163 : 3054 
17 12 00070 BNEQ 6$ : 
52 0D 0007F PUSHL TYPE_PTR : 3057 
66 9% FB 0081 CALLS #1, BBGSRST_NEXT_DST : 
52 0 p 0084 MOVL RO, TYPE PT F 
AO 8F 01 i 91 0 q cHPB 1¢fYPE_PTRD, #160 : 3058 
g DD 808 5$: PUSHL TYPE PTR : 3060 
66 gi FB 4 CALLS #1, BBGSRST_NEXT_DST : 
52 0 p 9 MOVL RO, TYPE PT F 
AS BF 01 i 4 036 6$: CPB 1(fYPE_PTR), #165 ; 3064 
AB OF 01 A 4 690 CAPS VCTYPE_PTR), #171 : 3065 
29 0 Ag 98 - MOVZBL hae PTR), RO ; 3070 
5 A04 9% Ag MOVAB  3(RO)CTYPE_PTRJ, TEMP_TS : 3069 
AC 1 AD BRB $ : 3009 
: AF 7%: TSTL TYPE_PTR : 3082 
3 8 BEQL ; 
0c Bc pd 00083 MOVL TYPE_PTR, aDST_PTR > 3085 


F 16 
RSTTYPES 16-Sep-1984 02:58: Ax-11 iss-32 V4.0-742 
you 1exg0p= 1382 98:78:99 = HOMES Shi ssste pe e%5 ts, 
AB OF 01 4 9 87 cups age: #171 
7 Ad OA MOVZBL 7(TYPE_PTR), R 
8 8 A04 3 3 MOVAB BCRODETYPE. TRG, RECBEG_TRLR 
34 93 Soocs ee 
54 60 p CB MOVL (RECBEG_TRLR), SIZE 
AS BF 01 A2 91 00000 as CMPB 2 s«A(TYPE_PTR), #165 
tn ne 
14 1 09 BNE 
54 02 A2 9A B MOV ZBL e(TYPE_PTR), Size 
gE 11 OO0DF BRB 0$ 
4 03 £1 9$ TSTL size 
a o eS ous TERP TS 
0000v gf 9} FB OOF CALLS #1, BOGEGET BITSIZE FROM, TYPESPEC 
4 0 DO OO0EC MOVL RO, SIZ 
08 BC 54 DO OOOEF 108 MOVL SIZE, a@BITSIZE 
50 53 00 000F3 MOVL TEMP_TS, RO 
04 000F6 RET 


; Routine Size: 247 bytes, Routine Base: DBGSCODE + 1159 


< 


The address of a TYPEID describing type_spec. 
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$4 +008 1 ~300 71382 95:7§:99 DEBUG. SRCSASTIYPES BS341 9 53) 
§ ROUTINE FIND _TYPREC_FROM_TSPEC( TYPE_SPEC ) = 
§ i FUNCTION 
; This routine takes a TYPE SPECIFICATION and returns the (possibly) 
? constructed 7/PEID which describes the type. 
: i INPUTS 
} TYPE_SPEC = The type specification for which we need a TYPEID. 
5 ; OUTPUTS 
i 
8 
9 


RRRERRRRR RG mocingrorwrow 


PEA AAAI AILAILAI AAAI AIAN AAAI NIAAA AANA 


me ee i me me ee ee a a a ed ad dd dd dd wd SS td 


0 
4 
‘ 
8 
y 
40 
0 41 
1 4g LOCAL 
2 4 FCODE, 
44 SIZE 
4 45 TEMP TS: REF DSTSTYPE_SPEC, 
5 46 TYPETD: REF RSTSENTRY 
6 47 TYPE_PTR: REF DSTSRECORD; 
8 49 
9 50 SIZE = 0; 
050 51 TYPE_PTR = 0; 
051 3 TEMP-TS = FIND_TYPESPEC(.TYPE_SPEC, SIZE, TYPE_PTR); 
05¢ 5 IF .TYPE_PTR NEQ 0 
05 54 THEN 
054 55 BEGIN 
055 36 IF (.TYPE_PTRCDSTSB_TYPE] EQL DSTSK_ENUMBEG) OR 
056 5 (. TYPE“PTREDST$B_TYPE] EQL DST$K-RECBEG) 
057 58 THEN 
058 59 BEGIN 
059 60 TYPEID = FIND_RST_TYPE_ENTRY(.TYPE_PTR); 
060 61 IF .TYPEID NEG O THEN RETURN .TYPETD; 
061 6¢ END: 
06¢ 6 END; 
06 64 


! If we have a descriptor type, then we need to check 
whether this is an array descriptor. 


UF y(* TEMP_TSCDSTSB_TS_KIND] EQL DST$K_TS_DSC) 


SESSE 


9 


CLASS 
DESC_PTR: REF BLOCKC,BYTE), 
VALKIND, 


VAL_PTR 
VAL“VECT: VECTORC3; 


VAL_PTR = TEMP_TSCDST$A_TS_DSC_VSPEC_ADDR); 
DBGSSTA VAL SPEC (VAL PTR, QAL_VECT, QALKINO); 
If «VALRIND NEQ DBGSR_VAL_DESCR 


HEN 
SDBG_ERROR("RSTTYPES\FIND_TYPREC_FROM_TSPEC 20°); 
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¥Ou~000 1 =300 71387 95:78:99 OeauUG. cheSAST TYPES Boost ge 390 
: 3083 184 DESC_PTR = .VAL_VECTCO); 
; 6 185 DBGEREAD_ACCESST- best Ptr, 12); 
: 3085 1 § CLASS = 7DESC_PTR pS ¢$B CLASS; 
: 30 1 IF (CLASS EQC DSCS$K_CLASS_A) | OR 
; 1 : (CLASS EQL DSCS$KICLASS-NCA) OR 
; 1 (CLASS EQL DSCSK“CLASS-UBA) OR - 
; 308 190 & (CLASS EQL DSCS$KZCLASS-VSA) 
: 3090 191 3 THEN 
; 991 198 4 BEGIN 
3 § 195 4 FCODE = RSTSK_TYPE_ARRAY; 
: 309 194 4 RETURN TYPEID“FOR_DESCR(.DESC_PTR, .FCODE); 
; §9¢ 196 END; 
; §99 198 FCODE = DBGSTRANS. TYPE_CODE(.TEMP_TSCDST$B_TS_KINDJ); 
: 098 199 IF «F cove EQL RSTSK_TYPE_ATOMIC 
: 100 1 RETURN DBGSTYPEID_FOR_ATOMIC(.TEMP_TSCDSTSB_TS_ATOM_TYP],.SIZE, FALSE); 
; 108 08 IF .TYPE_PTR NEQ 0 
: 104 205 RETURN TYPEID_FROM_DST_RECORD(.TYPE_PTR, .FCODE, .SIZE); 
; 106 307 RETURN TYPEID_FROM_DST_TYPESPEC(.TEMP_TS,.FCODE,.SIZE); 
: 3108 209 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


SF 44 4E 49 46 SC 53 45 50 59 54 54 53 52 ¢¢ OO1DA P.AAW: .ASCII \"'RSTTYPES\<92>\F IND_TYPREC_FROM_TSPEC 2\ g 
50 53 54 SF 4D 4F 52 46 SF 43 45 32 30 39 34 OOiE9 
30 O01FC ASCII \O\ : 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
007C 00000 FIND_TYPREC_FROM_TSPEC: 
“s WORD Save R2,R3,R4,R5,R6 : 3127 
10 000 L2 SP ; 
Be 999 RO ~=s*TYPE_PTR : 315 
5E pp PUSHL SP : 3152 
08 AE OF 9009 USHAB SIZE ; 
04 aC DD 0000 PUSHL TYPE SPEC ; 
Q FB OOOOF CALLS #3, FIND_TYPESPEC ; 
0 »D 14 MOVL RO, TEMPTS 3 
—E D 17 MOVL TYPE_PTRT RS : 3153 
55 D4 OO01A CLRL R ; 
HH iC TSTL =O ; 
a a ta : 
01 iS Fi cnPe 1<R5), #165 : 3156 
01 «AS i 0029 CAPR = sé. (RS), #171 : 3157 


os : $s 


0090v 


000000006 


000000006 


000000006 


FODA 


FSF1 


F713 


FADO 


FASF 


CF 
02 02 
50 93 
10 

0 
03 08 
00000000° 
00028362 


52 Ot 


50 03 


02 


04 


CF 


OOOO "9000-00-90 "0— 
9 WW "DO MMM Fwaor 


OOOOMOMOMOM POM 


MO—DOoUoronm 


OvVwiruwi OF FP NOVWIOPY 


WET CVO WEemmnnWwo sf 


ounw»p 


OorOoooCo"OITIOMOOT9o -99 “OO "9-9-0 0 “CO 
F£DOo090 £OOC00 OF? O FN "OF P ££ WWD ON "Ws" WSs" 


-Sep-1 :5 AX-11 Bliss-32 V4.0-742 Pa 1 
ifobeoct9Re 09:58:00 yanent at ige=s ve, 0c742_ 0°, 19! 
e%EQ 2 : 
MSH R ; 3160 
FALLS #1, FIND RST_TYPE_ENTRY : 
STL TYPEID + 3161 
get 
CMPB (TEMP_TS), #2 ; 3168 
BNEQ : 
MOVAB 3(R4), VAL_PTR : 317 
PUSHAB VALKIND : 317 
PUSHAB VAL_VECT : 
PUSHL P : 
CALLS #3, ~DBGSSTA_VALSPEC : 
CMPL YALKIND, 3 : 3180 
cee tas PB AAW : 3182 
PUSHL $ 
PUSHL #164706 : 
ste See beet peSt_PTR ? 3184 
PUSHL He F 318 
PUSHL +e : 
CALLS @# BBGSREAD Dace gs $s : 
MOV ZBL 3(BESC. PTR), “CLAS : 3! 
CMPL M4 ; 318 
BEQL 3 
CPL CLASS, #10 : 3188 
Poot CLASS, #14 : 3189 
BEGL : 
CMPL LASS, wi2 : 3190 
BNEO ; 
MOVL “i. of 0? ; 3193 
PUSHR 194 
CALLS #2, <FeeciD. FOR_DESCR : 
MOVZBL 2 (TEMP TS), =(SP) : 3198 
CALLS DBGSTRANS_TYPE_CODE : 
MOVL 40 peo D F 
CMPL = FCODE, : 3199 
BNEG © 6$ : 
CLRL = = (SP) + 3201 
PUSHL size ; 
MOVZBL (TEMP TS) P) : 
CALLS #3, DBCSTYPEID: FOR_ATOMIC : 
BLBC =—_-«&R,,_ 7S > 33 
PUSHL SIZE : 32048 
PUSHL FCODE F 
PUSHL R ; 
CALLS #3, TYPEID_FROM_DST_RECORD : 
PUSHL SIZE : 3207 
PUSHL FCODE : 
PUSHL TEMP T : 
CALLS #3, TYPEID_FROM_DST_TYPESPEC ; 
RET ; 3209 


ss RHO GHEE GLAS ASSES, 


; Routine Size: 223 bytes, Routine Base: DBGSCODE + 1250 


K 1 
Tabs Se 16-Sep-19 4 9g 38:00 AX-11 BLi s-3¢ V4.0=742 Page 108 
14-Sep-1984 12:18: DEBUG. SRCIRST YPES.632;1 (34) 
GLOBAL ROUTINE DBGSGET_BITSIZE_FROM_DESC(DESC_PTR): = 


FUNCTION 
Given pointer to VAX Standard Descriptor, get its size. 


OUTPUT 


i 

' 

i 

! INPUT 

; DESC_PTR = Pointer to VAX Standard Descriptor. 

i 

Size in bits is returned, it can be zero for non-contiguous array. 


BEGIN 
MAP 
DESC_PTR: REF BLOCKC,BYTE); 


LOCAL 
SIZE; 


POPPIN POPOPOPOPOPONOROPURUPURUTURUND 
WINALL WIAA AIO POPOPNOPONUNND 


OO NAVE WN @§ SO OD NOUS WN 9 OD NOU WW 9 ODN UE AR "OO OWVNOUSWN—0O 


Check for read access. 

DBGSREAD_ACCESS(.DESC_PTR, 12); 

CASE FES PUMLDSCER_CLASSS FROM DSCSK_CLASS_S TO DSCSK_CLASS_UBA OF 
! Scalar eypes. scaled decimal types, and unaligned bit strings. 
! The DBGSDATA_LENGTH routine computes a bit length by looking 
! at the DSC$W_LENGTH field, and then Looking at the dtype field 
: to figure out whether the Length is in bits, nibbles, or bytes. 
Coscsx CLASS_S. DSCSK_CLASS_D, DSCSK_CLASS_SD, DSCS$K_CLASS_UBS): 


aiee = DBGSDATA_LENGTH( .DESC_PTR); 


5 at hhh ee 


! Arrays. The Longeh is given in the ARSIZE field. It is either 
in bytes or nibbles, depending on the dtype. 


CDSC$K_CLASS_A): 
IF .DESC_PTRCDSC$B_DTYPE) EQL DSCSK_DTYPE_P 
SIZE = .DESC_PTRCDSCSL_ARSIZE} * 4 


ELSE 
SIE = -DESC_PTRCDSCSL_ARSIZE) * 8; 


PIFOPIPIPINPIPIAIPINIPINININIPUNPIPINPINIPPPoNy 


PPAAMUIVIVIMIUIV 


ee ee ed ed tk et ad nd od wd = = ws 8 = od = = ww = = 2 Ls 4 a st a 


EPP OPOPOPONOPI WIN WI WIN POROPOPOPORI IORPORONOPOPONOPOPONOPUPONONUPONOPUPORINUN) 2 


END 
60 : Nonmcont {quous arrays. The ARSIZE field contains a length, 
61 ! but that length may not be meaningful. Return 0 since we 
$¢ don’t really know what the length is. 
64 CDSCS$K_CLASS_NCA, DSCSK_CLASS_UBA, DSCS$K_CLASS_VSA): 
65 BEGIN 
66 SIZE = 0; 
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; 167 67 END; 
3 185 é 4 vorying oyring descriptor. The maximum string length in 
; 109 4 : bytes is in the MAXSTRLEN field. 
3 7 i toscsx CLASS_VSJ: 
: 3174 74 SIZE = .DESC_PTRCDSCSW_MAXSTRLEN] © 8; 
3 12? Le END; 
; 39 7 CINRANGE, OUTRANGE): 
; 178 , SIGNAL (DBG$_DESCNOTSET); 
3 18) 9 TES; 
: 31 ¢ 8 RETURN .SIZE; 
; 318 8 END; 
0004 00000 sENTRY DEGSGET_BITSIZE_FROM_DESC, Save R2 
OC oD 90002 PUSHL #1 
52 04 AC 00 00004 MOVL DESC_PTR, R2 
52 DD 00008 PUSHL R 
00000000G 00 02 FB QOO0A CALLS #2, DBGSREAD_ACCESS 
0D gi 03 A2 8&F 00011 CASEB «3(R2), #1, &T3 
0034 001C 002A 002A 0016 1$: WORD $-1$,- 
OO1C 001 001C BOK OO1E $-1$,- 
0046 0049 0046 OSA OOSE $-1$,- 
0046 002A 002E 4$-1$,- 
$-1$,- 
$-1$,- 
$-1$,- 
$-1$,- 
$-1$,- 
et toe 
$-1$,- 
$$-13.- 
$-1$,- 
re 
00028F 50 of DD 000 : PUSHL #167760 
00000000G 00 1 fe a #1, LIBSSIGNAL 
52 0D PUSHL Re 
000000006 00 0 FB CALLS #1, DBGSDATA_LENGTH 
15 02 =A 8 CMPB (R2), #21 
iF} BNEQ $ 
50 OC A2 i? aut #2, 12(R2), SIZE 
0c % ASHL #3, 12(R2), SIZE 
04 RET 
4 CLAL SIZE 
4 RET 
C MOVZWL (R2), SIZE 


rom it 


Pee Se Oe Se Ge Se Se Se Ge Ge Se Se Se Se Se Ge Se Se Ge Se Be Be Be Se Se Be Se Se Se Se Se Se Se Se 


3235 


3278 


3245 


3353 


3255 
35 


% 


vb0-005 1E3ee19Re WRFE:99 YASS SLSR HE 9682, taal 
50 08 £4 00062 MULL2 #8, SIZE oo 


; Routine Size: 102 bytes, Routine Base: DBGSCODE + 132F 


' Return the bitsize corresponding to the input data type. Note that 
we treat Boolean (as in PASCAL) as a special case. 


if .DTYPE EQL DST$K_BOOL OR .DTYPE EQL DSC$K_DTYPE_TF THEN RETURN 8; 
RETURN 8*.LENGTH_TBCC.DTYPE); 


END; 
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¥O4-005 14-Sep O-1986 t 98: 38: 99 DEBUG. SRCIR stfvees $.832;1 . 9 
; : 5 ¢ : ROUTINE GET _BITSIZE_FROM_DTYPE(DTYPE) = 
: 31 1 ' FUNCTION 
; 31 1! This routine takes an SRM DTYPE and returns the default bitsize 
3 } 9 $ : } defined for that type. 
: 3191 1 | INPUTS 
3 136 4 ! DTYPE = The VAX Standard Data Type whose bit size we want. 
: 3194 38 1 ' ouTPUTS 
: 13% 32 : The corresponding bit size is returned as the routine'’s value. 
: $19 1 
; 5198 3$ BEGIN 
; 390 38 BIND 
: 3201 00 LENGTH_TBL = UPLIT BYTE(O 2.4.8, 4,8,8,16, 
: $908 64 Rep {1 pty ‘ef (6), 16-1678 716746 42. 
; 03 0¢ 1 0.6): vECTORE Say Tels 
: 3205 L 3304 ZIF DSCSK_DTYPE_HIGHEST GTR 7 i If the LENGTH_TBL PLIT is too small, 
3 $06 u 3305 i generate a comer re PR error 
; 4 U ZERROR("Error: Must expand PLIT in Rout ine GET_BITSIZE_FROM_DTYPE") 
: i 
: 32 
: : 1 


WAAAN NNW 
os st 1OOO 
NOnrwn—oow we 


w 
ee re rr 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


10 08 08 04 08 04 02 01 08 04 02 01 01 00 OM1FD P.AAX: .BYTE 0, 1, 1, 2. 4 8 1. 2. 4 8 4 8 8 1 ; 

00# 00208 ‘Byte 0f11 : 

00 00 00 00 08 08 OC 20 10 10 08 10 10 00216 “BYTE i6, 16, 8, 16, 16, 32, 12, 8 8. 0, 0. 0, = 
LENGTH_TBL= P.AAX 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
0000 00000 GET_BITSIZE Sat DTYPE: 


38% 


WORD Save nothing : 

O000009E BF 04 AC D1 00002 ¢ PL DTYPE, #158 ; 
+4 of OA BEQL ; 

28 04 CMPL TYPE, #40 3 

8 BNEQ 5 

50 3 MOVL #8, RO 3 

RET ; 


—_—- - -— Cee 


sas 


; Routine Size: 


38 bytes, 


% eaaney + de EF 9€ 


a 


Routine Base: 


BC $3 


DBGSCODE + 1395 


tt 


-Sep-1 
-“Sep-1 


Be 98:98:29 


MOVAB 


LENGTH 8h: ne 


sity apTvPEce 


AX=-11 BLi 
DEBUG. SRC 


s-3 
RST 


fy 


V4.0-74 
PES. ages 


Page 19) 
i 3315 


3317 


— 


<v“ 
a 


sas 


VFWN 0 OO@NOUFWNO 


MOPUPOPOROROTY 


FINN AISSLS ARE SSE USAF See 


= 


PWN 98 DOONAN EW 0 OB NO UENO OOO UNE A "OOM 


Wve 
PPA AAGIUIIIIIN & 


MEW —OOOnOu 


o 


16-Sep-1984 02:5 AX-11 Bliss-32 V4.0-742 Page 108 
18-Sep-1964 93: 33: Hy DEBUG.S SRCIAS ASTIYPE -B832;1 . 385 
GLOBAL ROUTINE DBGSGET_BITSIZE_FROM_TYPESPEC( TYPE_SPEC ) = 
FUNCTION 
This routine takes a type specification and returns the corresponding 
default bit size. 


INPUTS 
type_spec - The type specification whose default size we want. 


OUTPUTS 
The type’s default bit size is returned as the routine'’s value. 


BEGIN 


Pp 
TYPE_SPEC: REF DSTSTYPE_SPEC; 
LOCAL 
DESCPTR: REF BLOCKC,BYTE), 
FLAGS_PTR: REF BITVECTOR, 
IMS, 
SIZE, 
VAL VECT: VECTORC3), 
VALPTR: REF DSTSVAL_SPEC; 
SELECTONE . TYPE_SPECCDST$B_TS_KIND] OF 
COST$K_TS_ATOM): 
SIZE = GET_BITSIZE_FROM_DTYPE(.TYPE_SPECLDST$B_TS_ATOM_TYP)); 
CDSTSK TS. DSc): 
VALPTR = TYPE _SPECCDSTSA_TS_DSC_VSPEC_ADDR): 
becssTA A_VALSPEC(.VALPTR, VAC_VECT, VACKIND); 
LF WALRIND NEQ DBGSK rVALY VOESCR 
$DBG_ERROR(*RSTTYPES\DBGSGET_BITSIZE_FROM_TYPESPEC"); 
DESC CPTR = .VAL_VECTCO); 
Size = DBG$GET~BITSIZE_FROM_DESC(.DESCPTR); 
CDSTSK on DSTSK_TS_PTR, DSTSK_TS_FILE): 
SIZE = 32; 
COSTSK_TS_PIC): 
SIZE = .TYPE_SPECCDST$B_1S_PIC_DLENG)*ZBPUNIT; 
CDST$K_TS_ARRAY): 


GIN 
NO IRS = , TYPE _SPECCOSTS$B_TS_ARRAY DIM); 
LAGS _PTR = TYPE SPECCOSTSA-TS_ARRAY_FLAGS_ADDR); 
VAL PTR s FLAGS. PTR ¢ (.NDIAS/B) + 13 
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409 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


3277 ? DBGSSTA.VALSPEC(.VALPTR, VAL_VECT, VALKIND): 

E 26 FegivALRINO NEQ bBGsK VAL VDESCR 

3 28 $DBG_ERROR('RSTTYPES\DBGSGET_BITSIZE_FROM_TYPESPEC'); 
i 0 DESCPTR = vECTcO); 
3 Size = DaGEGET~BITSIZE.FROM_DESC(.DESCPTR); 

; (DSTSK_TS_SET): 

; 5 SIZE = .TYPE_SPECCDSTSL_T1S_SET_LENG); 

; CDSTSK_TS_SUBRANGE): 

; 8 SIZE = .TYPE_SPECCDSTSL_TS_SUBR_LENG); 

; 50 (DST$K_TS_NOV_LENG): 

; 91 SIZE = .TYPE_SPECCDSTSL_TS_NOV_LENG); 

; 38 CDST$K_TS_SELF_REL_LABEL): 

; 34 SIZE = .TYPE_SPECCDSTSL_TS_SELF_LENG) * 8; 

; CDSTSK_TS REA: 

; 3 SIZE = 6 * 8; 

; 99 (DST$K_TS_TASK): 

: res SIZE = 32; 

; 408 COTHERWISE): 

: ret SIZE = 0; 

; 405 TES; 

; 109 RETURN .SIZE; 

: 408 

47 26 47 42 46 SC 53 45 50 59 546 54 53 52 26 00 33 P.AAY: .ASCII \@RSTTYPES\<92>\DBGSGET_BITSIZE_FROM_TYP\  ; 
4D 4F 52 466 SF 45 5A 49 53 54 49 i 3F 34 45 0 3 : 

43 4 : 33 45 45 ASCII \ESPEC\ : 

4? 26 47 42 466 SC 53 45 50 59 54 54 26 4A P.AAZ: “ASCII \@RSTTYPES\<92>\DBGSGET_BITSIZE_FROM_TYP\  : 
4D SF 52 466 SF 45 SA 49 53 54 49 i f 24 45 0 59 : 
| os 25 80 83 28 dodee ASCII \ESPEC\ : 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
007C 00000 -ENTRY DOGSGET BITSIZE_FROM_TYPESPEC, Save R2,R3,- 


56 000000006 90 95 99002 nOVAB Dass tA. VALSPEC, R6 


3318 


ef 
vo4-000° 1-36-1986 98:18:27 — Eocaus. SachasttvPEs. ese 1 


3 6 AC 00 SPEC, R3 
5 83 AS ah 15 RovzeL at rsh 
a5 1) 17 GNEG it 
7E 03 Ad 9A 00019 MOVZBL (R3) -( 
B9 AF 1 re 1D CALLS , GET_B TS1ZE_FROM_DTYPE 
0084 : 1 BRW Ae 
02 4 91 4 1%: CMPB RG, #2 
if 12 7 BNEQ ; 
52 03 A’ 9f 9 MOV (R3), VALPTR 
5E po 02D PUSHL  §P 
08 AE OF 0 F PUSHAB VAL_VECT 
52 DD 2 PUSHL VAL 
66 03 FB 000 CALLS #3, DBGSSTA_VALSPEC 
0 6— D1 00037 CMPL VALKIND, 3 
61 13 OOO3A BEQL $ 
00000000" EF 9F 000 ¢ PUSHAB P.AAY 
4A 11 0004 BRB 6$ 
04 54 91 Oo44 2s CMPB RG, 4 
98 1F 00047 BLSSU 4$ 
05 4 91 00049 CMPB RG, #5 
03 1A 0004C BGTRU 4 
o0gt 31 O04E 3S: BRW 14$ 
08 4 91 0051 i$: CMPB RG, #11 
F8 13 00054 BEQL 486 3 
06 54 91 0056 CMPB OseaR4, #6 
09 12 00059 BNEQ 38 
55 03 A3 9A 00058 mOVZBL 3 (R3), SIZE 
55 08 C4 0005F MULL Size 
7¢ 11 00062 BRB ' § 
07 54 91 00064 5S: CMPB RG, #7 
44 12 00067 BNEQ 
51 03 a3 9A 00069 MOVZBL itn): IMS 
50 04 A’ 9E 00060 MOVAB R3) FLAGS. PTR 
31 08 £6 0071 DIVL R 
2 01 A140 9E 00074 MOVAB TRI) CFLAGS _PTRJ, VALPTR 
SE 0D 00079 PUSHL $ 
08 AE 9F 00078 PUSHAB VAL_VECT 
52 0D 0007 PUSHL VALPTR 
66 03 FB 000 CALLS #3, DBGSSTA_VALSPEC 
0 at D1 000 CMPL ALKIND, #3 
15 13 00 BEQL 
00000000" EF 9F 00 PUSHAB P.AAZ 
1 OD 8 6$: PUSHL 
00028362 8F DD PUSHL 64706 
000000006 99 3 F 96 CALLS a3° LIBSSIGNA 
04 AF D 9 7$: MOVL VAL ECT. DESCPTR 
DD 000A1 PUSHL DESEPIR 
FECC cf wg, a3 CALLS , DBGSGET_BITSIZE_FROM_DESC 
5 9 p 8$: MOVL Rg SIZE 
AB BRB 17$ 
08 4 9 98: CMPB RG, #8 
Al Bi Bea. =-:« 108 
09 4 9 8 CMPB RG, #9 
5 1 B BEQL §«=ss«d108 
iY 49 B CMPB RG, #14 
6 12 000BA BNEQ ssa: 
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55 03 A BC 10$:  MOVL 383), SIZE 3 3391 
¢ BRB 7$ : 
10 ¢ 11$: cHPe RS #16 : 3393 
55 03 «Ad } ; cf ASHL ‘ , 3(R3), SIZE : 3394) 
1 4 } CE 12 CMPB RG, #17 : 33% 
3 1 D BNEQ =-*'13 : 
55 p D MOVL #48, SIZE ; 3397. 
¢ BRB 17 : 
| 12 4 91 D& 13$: CMPB RG, #18 : 3399 
3 1 DB BNEQ ss 1 ; | 
1 £0 15$:  6RB 1 : 
D4 O00E 168: CLRL = SIZE 3 3403 
50 0 00064 17$:  MOVL SIZE, RO > 3407. 
4 000€7 RET : 3409 


; Routine Size: 232 bytes, Routine Base: DBGSCODE + 1388 


<u" 


i 


— +) ss 


VEFWN $0 OONAOVS AN “OOO NOUS Ww 


WVrWwnN—O”0 


; Routine Size: 


RORORORORORORURURURURORUNUTURUUNNND ee 
*. 


45 bytes, 


DEBUG. SRCIASTI PES 


IScseo-196e 03:58:00 


ROUTINE GET_BITSIZE_FROM_BLIDST(DSTPTR) = 


i FUNCTION 
‘ This routine takes the address of a BLISS type zero DST record, and 
determines the bit size of the data item. 
i INPUTS 
DSTPTR = The address of the DST record. 
i OUTPUTS 
: The bit size of the item is returned as the routine'’s value. 
BEGIN 
MAP 
DSTPTR : REF DSTSRECORD; 
LOCAL 


BPTR1: REF DSTSBLI_TRAILER1, 
BP TR2: REF DSTSBLI-TRAILER2; 


IF .DSTPTRCDSTSB BLt VFLAGS] NEQ 1 THEN ae Tune 0; 

BPTR1 = DSTPTR(DSTSA-BLI_TRLR1) + .DSTPTRCDSTSB GLI LNG); 
BPTR2 = BP TRIED STSA_BL 1 _TRLR ] + .BPTRICDOSTS$B_BCI_NAMEJ; 
SIZE = .BPTR2CDST$L_BLI size : 

IF_.DSTPTRCDSTSV_BLT_REF) THEN SIZE = 4; 

RETURN .SIZE; 

END; 


0004 00000 GET _BITSETE TRON BLIDST: 
. e 


wo Save R2 
52 04 AC po 0002 MOVL DSTPTR, R2 
01 4 A2 91 00006 CMPB 0 s«&@(R2), #1 
16 12 A BNEQ 1$ 
8 A A MOVZBL giRg) Ro 
A240 9€ MOV (Re) CROJ, BPTRI 
1 4 AO 9A 0001 MOVZBL 4(BPTR1), RI 
9 5 Al4 1 MOV 3cR1) CaPtRt] BPTR2 
6 g If MOVL (BPTR2), SIZE 
0S A TSTB =: 5 (R2) 
06 1 4 BGEQ 3=s-- S$ 
50 4 p $ MOVL #4, SIZE 
4 RET 
50 b4 A I$: CLRL = RO 
4 C 2$: RET 


Routine Base: DBGSCODE + 14A3 


0-742 
Wier 1 


3035 
3437 
18 | 


440 | 
bbe 


sls 
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Liss-3 
RCJRST 


fy 
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PES.B 
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ei 


ccc 


Be Se Se Se Se Se Ge Se Be Be Se Se Be Se Ge Se Se Ge Se Se Se Se Se Se FF Se Se Se FH Se Se Ss Se we HSH Se Se SF Se Se Se SF Se Se Se SF Ss Se Se Ge Se Se SH Se Se oe 


7 


VFWN—OOONOUF Ww O0O@ 


4 
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HPPA ATI BPP PEE 
SOON FUN" OOOVNOUEw 


= 
ao 
oe 
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ROUTINE FIND_RST_TYPE_ENTRY(DSTPTR) = 


FUNCTION 


is routine takes the ecerese of a OST record, and tries to find the 

T record which it defined. In port tculer this routine serves to 

nd the TYPEID for those types which were built into the RST at SET 

MODULE time (Record and Enumeration Types), but are now being referenced 
aa DST pointer. The routine otapty passes through the RST looking 

r an RSTSL_DSTPTR which matches the input DSTPTR. 


h 
RS 
i 


T 
f 
vi 
fo 


INPUTS 


DSTPTR = The address of the DST record of interest. 


OUTPUTS 


The TYPEID of the Record or Enumeration Type we are seeking is returned 
as the routine value. If no such TYPEID exists, zero is re- 
turned as the routine value. 


BEGIN 


LOCAL 
MODPTR: REF RSTSENTRY, 


' Pointer to current Module RST Entry 
SYMID: REF RSTSENTRY; 


! Pointer to current symbol RST entry 
: within the current module 


: Start up a aon through the RST Module Chain which scans all modules. 
' Note that we skip over the onpnyunus module’’ at the start of the chain; 
this module contains all the Global Symbols and is not of interest. 


MODPTR = .RSTSSTART_ADDRERSTSL_NXTMODPTRI; 
WHILE .MODPTR NEQ 0°DO 


! Now search the syepet Chain for the current module, looking for an 
RST —y | whose DSTPTR is the same as the given DSf pointer. When 
such an RST Entry is found, return its address as the symbol SYMID. 


i 

4 

SYMID MODPTRERSTSL_SYMCHNPTRI; 
WHIL MID NEG 0 DO 


N 
eee DSTPTR] EQL sharers THEN RETURN .SYMID; 
D = .SYMIDCRSTSL_SYMCHNPTRI; 


<e 


! The DST pointer was not found in this module. Link on to the next 
module and search its symbol chain. 


MODPTR = .MODPTRIRSTSL_NXTMODPTR); 


! We have search the whole RST without finding the desired DST pointer. 


Wa 
PE 


———————————-7I 


Vo4-000. ieSe0ct9g 3:78:29 + EOEaue. Sac Sasi vPescasest Page TB) 
; pe H Return zero to indicate that the search failed. 

; ; é RETURN 0; 

; 35408 504 END; | 


0000 00000 FIND_RST aa nn 


| 
: oW 3: 344 
$0 000000006 09 pp 0000 hove, -RSYSsTaRT ABOR, RO : 58 
1 10 Ag 9 000 MOVL 1g(RO), MODPTR : 
19 13 00000 1$ BEQL «= 4 + 3476 
50 08 Al 00 O00F MOVL 8 MODPTR), SYMID + 3484 
OD 1 0013 2$ BEQL $ > 3485 
04 Ac 0c AO D1 0001 CMPL  12(SYMID), DSTPTR : 3487 
OE 13 OOO1A BEQL «=s«SS$ : 
50 08 A 00 001C MOVL  &(SYMID), SYMID : 3488 
F1 41 00020 BRB 2$ : 3485 
51 10 Al DO 00022 3S: MOVL § 16(MODPTR), MODPTR + 3495 
5 11 00026 BRB 1$ : 3476 
0 D4 00028 4$: CLRL = RO : 3502 
04 0002A 5$: RET : 3504 
; Routine Size: 43 bytes,  toutine Base: DBGSCODE + 1400 
| 
; 3409 3505 3 | 
: 3410 506 0 END ELUDOM 
| 
.EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes | 
: DBGSOWN 12 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC.ALIGN(2) 
; DBGSCODE 5371 NOVEC.NOWRT. RD. EXE. SHR. LCL. REL. CON, PIC-ALIGN(O) | 
> DBGSPLIT 625 NOVEC.NOWRT, RD. EXE. SHR. LCL. REL. CON, PIC.ALIGN(O) | 
5 Library Statiscics 
Fee. eo ae re Symbols -------- Pages Processing | 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 100 :01. 
> 7$255$0UA28:(DEBUG.OBJ STRUtDEF F $32: 1 3 6 p : 09:00-} 
: 78 25SDUAZB: : (DEBUG. 0B JDBGL 154 9 97 :01.8 
E $255$DUA28: (DEBUG.08, De TREE RDS. (32:1 
| 


r 


RSTTYPES ba Sep-1 £5 AX-11 BLigs-32 v4.0-742 Page 116 
ya +008 i =$60-1382 95: 38: 99 DEBUG.SR ROAR Sttvbeg Bsoe1 age 48 
$ 1 20 47 :00. 

3; .$2558$0UA28: (DEBUG.0B/ JDBGMSG.L32;1 $38 g 1 3} 98 :88:3 

ls COMMAND QUALIFIERS 

| ; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LISS:RSTTYPES/OBJ=OBJ$:RSTTYPES MSRC$:RSTTYPES/UPDATE=(ENHS$:RSTTYPES) 
; Size: 5371 cgge + 637 data bytes 
; Run Time: :35.7 
; Sl eaae Time: 1:45.7 


; Lines/CPU Min: 219 

: emo Ae tiga 16567 
; Y Used: 281 pages 
; —— ation Complete 


NT CORPORATION 
D PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


0100 


010 AH-BT13A-SE AL: EQUIPMENT CORPORATION 
VAX/VMS V4.0 


DENTIAL .AND PROPRIETARY 


DIGIT 
CONFI 


